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I.   INTRODUCTION 


A.   HISTORY  OF  THE  BASIC  LANGUAGE 


The  Beginner's  Al  ] -Puroose  Symbolic  Instuct  ion  Code 
(BASIC)  was  developed  at  Dartmouth  Colleoe  to  orovide  a  sim- 
ple/ interactive  lanauaqe  for  liberal  arts  students  with 
specific  apDlications  in  scientific  comoutat ion.  In  order 
to  meet  this  goal ^  only  a  limited  vocabulary  of  instructions 
was  included  in  the  oriqinal  definition  of  Basic.  There  was 
no  concent  of  data  tyoinq  and  there  were  no  default  condi- 
tions to  memorize.  The  interactive  nature  of  programming 
provided  an  ideal  man/machine  interface  for  creating  and  de- 
bugging programs*  while  the  features  of  the  language  were 
well-suited  for  the  exoression  of  enqineering  and  mathemat- 
ics problems.  Since  this  environment  satisfied  the  needs  of 
a  wide  ranqe  of  ootential  computer  users*  Basic  was  orocured 
for  adaptation  by  a  number  of  universities  and  commercial 
firms.  In  particular*  timesharing  service  bureaus  expanded 
computer  usage  among  non-comouter  specialists  by  providing 
its  customers  with  the  Basic  language.  This  led  to  the 
development  of  numerous  dialects  of  Basic  and  to  many  exten- 
sions intended  to  satisfy  the  unique  needs  of  various  users 
[U  . 


As  the  use  of  Basic  increased  and  extensions  to  the 
1  anguaae  became  more  widespread,  the  need  for  standardiza- 
tion became  an  industry  wide  concern.  In  1974,  this  concern 
finally  led  to  the  formation  of  the  X3J2  committee  of  the 
American  National  Standards  Institute  which  was  tasked  with 
formulating  a  Drooosed  standard  for  the  Basic  programming 
language.  The  result  of  an  extensive  effort  was  the  Pro- 
posed American  National  Standards  Institute  (ANSI)  report  on 
a  proposed  standard  for  Minimal  Basic  [  2  J  •  The  Proposed 
standard  established  a  minimum  set  of  features  which  should 
be  included  in  the  implementation  of  a  Basic  language  pro- 
cessor, while  the  proposed  standard  provided  arithmetic  and 
very  simple  strina  prccessina  capabilities,  it  did  not  con- 
sider the  more  extensive  features,  i.e.  mu 1 t i -p rogram  inter- 
facing and  extensive  predefined  functions,  which  had  ini- 
tially led  to  the  neea  for  standardization.  In  a  recent  ar- 
ticle C31,  Lientz  compared  the  different  commercially  avail- 
able Basic  language  processors.  This  survey  indicated  that 
most  Basic  processors  provided  similar  features  and  included 
extensive  facilities  beyond  those  in  the  Droposed  ANSI  stan- 
dard. 

B.   OBJECTIVES  OF  THE  EXTENDED  BASIC  LANGUAGE 


Extended  Basic  was  designed  to  provide  all  the  arithmet- 
ic processing  features  of  the  proposed  standard  for  Basic  as 
well  as  extensions  and  enhancements  to  the  language  for  use 
at  the  Naval  Postgraduate  School.   These  extensions  included 


mu 1 t i -di mens i ona 1  arravs*  loaical  operators  for  numeric  and 
string  quantities*  strinq  manipulation/  and  sequential  ac- 
cess to  external  files.  Further*  extended  Basic  retained 
the  original  concepts  of  Dartmouth  Basic  while  freeing  the 
programmer  from  many  of  the  original  limitations.  Enhance- 
ments included  improved  control  structures  and  features  to 
enhance  increased  readability.  Extended  Basic  also  attempt- 
ed to  maintain  grammatical  comoa t i b i 1 i t y  with  exist inq  ex- 
tensions to  Basic*  particularly  those  in  use  at  the  Naval 
Postgraduate  School. 

An  additional  qoal  of  extended  Basic  was  to  provide 
non-computer  scientists  with  a  more  managable  high  level 
languaqe  capable  of  interfacing  with  other  subsystems  sup- 
ported on  the  PDP-11  at  Naval  Postgraduate  School.  Examples 
of  such  subsystems  are  the  procedures  which  drive  the  vari- 
ous graohics  devices  found  in  the  computer  laboratory.  The 
primary  UNIX  system  graphics  lanquaqe  is  C  [111  which  pro- 
vides support  for  the  subsystems  in  the  PDP-11. 

Currently  included  within  UNIX  are  a  dialect  of  Fortran 
[  1  2  ]  *  the  Fortran  preprocessor  f  1  3 1  RAT FOR*  an  interpreter 
for  a  highly  specialized  dialect  of  Basic  [14]*  produced  by 
Bell  Laboratories  [41*  Digital  Equipment  Corporation's  FOR- 
TRAN IV  PLUS,  and  the  UNIX  assembler  [71.  None  of  these 
languaqes  were  entirely  suited  to  this  special  Graphics  en- 
vironment as  they  existed  in  the  system.  Extended  Basic  is 
an    easily  learned  1 anguaae  which  is  readily  adaptable  to  the 
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student  environment  and  enhances  the   graphics   capabilities 
in  the  laboratory. 

Unlike  many  existing  implementations/  extended  Basic  was 
not  implemented  as  a  purely  interpretive  language.  A  source 
program  is  compiled/  generating  an  assembly  language  file. 
This  code  is  then  assembled  and  loaded  with  the  Basic  li- 
brary/ and  other  libraries  as  specified  by  the  user,  includ- 
ing the  C  library/  the  various  araDhics  device  libraries/ 
and  any  user  designed  libraries  which  may  exist  for  particu- 
lar implementations.  The  compilation/  assembly  and  loading 
actions  are  called  by  a  program/  LBAX,  which  is  resident  in 
the  UNIX  system.  Usage  of  the  program  is  described  in  A  p  - 
pendi  x  II. 


1  1 


II.   LANGUAGE  SPECIFICATION 


In  the  following  sect ion»  the  Dartmouth  Basic  language 
and  the  ANSI  proposed  standard  will  be  reviewed*  followed  by 
a  discussion  of  the  features  of  extended  Basic  which  differ 
from  Dartmouth  Basic  and  the  orooosed  ANSI  standard.  These 
features  include  extended  arithmetic  processing*  improved 
readability*  expanded  control  structures*  string  manipula- 
tion* external  file  access*  and  program  access  to  system 
software  for  graphics  interface. 

A.   THE  PROPOSED  STANDARD  FOP  BASIC 
1  .   Dart  mout  h  Basic 

Dartmouth  Basic  is  a  statement  oriented  language. 
Each  statement  consists  of  a  line  numoer  and  a  command.  Da- 
ta is  either  numeric  real  or  cKaracter  string  with  no  dis- 
tinction being  made  between  types  of  numeric  data.  Identif- 
iers terminated  by  a  dollar  sian  refer  to  string  variables* 
while  all  other  identifiers  reference  numeric  auantities. 
Identifiers  consist  of  only  a  single  letter  or  a  letter  fol- 
lowed by  a  dollar  sign.  Arithmetic  operations*  defined  on 
numeric  data  only*  are  represented  bv  the  infix  operators  +* 
-*  **  /*  and  T  ( exponent i at i on ) .  Unary  operations  are  de- 
fined by  the  Drefix  operators  +  and  -.   Both  data  types   may 
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be  compared  using  the  infix  relational  operators  <  ,  <  =  ,  > , 
>=,  and  <>.  One  and  two  dimensional  numeric  arrays  are  sud- 
ported.  Finally,  a  limited  number  of  predefined  algorithms 
perform  elementary  function  evaluation  [53.  These  include 
ABS,  ATN,  COS,  EXP,  INT,  LOG,  RND,  SGN,  SIN,  SQR,  and  TAN. 
A  complete  description  of  these  predefined  functions  is 
presented  in  Appendix  I. 

Dartmouth  Basic  is  intended  to  be  an  interactive 
language  with  both  editing  and  program  execution  occuring  in 
the  same  environment.  Therefore,  most  Oartmouth  style  Basic 
implementations  rely  on  line  numbers  to  play  an  important 
part  in  the  editina  function  of  Basic. 

2.   The  Proposed  ANSI  Standard 

The  proposed  ANSI  standard  12]  incorporates  all  the 
features  of  Dartmouth  Basic  and  adds  the  following  state- 
ment s  : 


ON 


RANDOMIZE 


DEF 


OPTION 


STOP 


With  the  exception  of  the  OPTION  statement,  most  existing 
Basic  implementations  include  all  of  these  additional 
features.  These  extensions  are  described  as  they  exist  in 
this  implementation  in  Appendix  I.  The  OPTION  statement  is 
used  to  specify  whether  the  lower  bound  of  ar<  array  is  zero 
or  one. 


13 


Most  existing  Basic  lanquaqe  orocessors  ao  well 
beyond  the  prooosed  ANSI  standard  to  provide  file-handling 
ability?   formatted   outout/   string   man i du 1  a t i on ,  matrix 

operations*  and  a  multitude  of  ©redefined  functions.  The 
survey  by  Lientz  [3]  documents  these  extensions  for  many 
large  and  m i n i -comou t e r  manufacturers/  and  for  a  number  of 
timesharing  services. 

B.   FEATURES  OF  THE  EXTENDED  BASIC  LANGUAGE 

Extended  Basic  was  designed  to  maintain  compatibility 
with  the  proposed  ANSI  standard  while  extending  the  language 
to  incorporate  such  features  as  string  processing  and  exter- 
nal file  access.  Enhancements  were  also  included  to  provide 
additional  control  structures  and  increased  readability.  In 
this  section  the  features  of  extended  Basic  which  do  not  ap- 
pear in  the  orooosed  ANSI  standard  will  be  discussed.  Ao- 
pendix  I  includes  a  complete  description  of  the  language. 

t.   Arithmetic  Processing 

Extended  Basic  adds  to  arithmetic  processing  by  sud- 
porting  multiple  dimensional  arrays.  All  arrays  must  be 
dimensioned  orior  to  usage  in  the  orogram  and  the  same  iden- 
tifier mav  not  serve  as  both  an  array/  whose  elements  are 
subscripted/  and  a  simple  non-subsc r i o t ed  variable.  Logical 
binary  operators  AND/  OR/  XOR  (exclusive  or) ,  and  the  unary 
operator  NOT  are  provided  for  the  logical  evaluation  of 
numeric  and  string  expressions.   The  relational  operators  "» = 
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and  1=  (not  eaual )  have  been  added  to  the  set  of  logical 
operators  for  comoa t ab i 1 i t y  with  existinq  languages.  User- 
defined  functions,  defined  using  a  DEF  statement?  may  have 
any  number  of  oarameters.  However*  as  with  FORTRAN/  every 
function  must  have  at  least  one  Darameter.  Functions  must 
be  defined  prior  to  aooearance.  While  functions  may  refer 
to  other  functions  within  the  body  of  the  definition,  recur- 
sive references  are    not  permitted. 

The  OPTION  statement  is  not  implemented.  Since  the 
lower  bound  of  every  arrav  is  always  zero  and  there  are  n+1 
elements  allocated  by  the  compiler  for  every  array,  the  user 
is  provided  the  OPTION  feature  by  default.  Due  to  the 
manner  in  which  the  UNIX  system  effects  external  system 
calls,  und i men s i oned  subscrioted  variables  should  not  be 
used,  as  is  conditionally  allowed  in  Dartmouth  Basic  ana  the 
proposed  ANSI  standara. 

Arithmetic  constants  may  be  written  in  either  in- 
teger or  decimal  form.  All  constants  are  viewed  internally 
as  double  orecision  floating  Doint  numbers.  Scientific  no- 
tation is  not  implemented.  Numeric  constants  are  output  in 
decimal  form  only.  The  columnar  width  of  numeric  output  may 
be  specified  using  the  COL  function.  If  columnar  width  is 
not  specified*  COL  defaults  to  10  columns.  If  the  value 
exceeds  the  orescribed  width,  the  field  is  filled  with  a 
string  of  question  marks. 
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2 ,       Readab  i 1  i  t  y 

Readability  has  been  improved  by  increasing  variable 
name  length*  permitting  free  form  input  with  statement  con- 
tinuation/ and  by  not  reguiring  line  numbers  on  all  state- 
ments in  the  program.  H i s t o r i c a  1  1 y f  Basic  permitted  vari- 
able names  consisting  of  a  single  letter  or  a  letter  fol- 
lowed by  a  number.  This  makes  large  programs  difficult  to 
understand  and  debug.  Extended  8asic  allows  variable  names 
to  consist  of  uo  to  four  alpha-numeric  characters  of  both 
upper  and  lower  case*  except  string  variables  which  should 
include  ' $ '  in  the  second  or  third  character  position. 
Predefined  functions  may  be  written  in  uoper  or  lower  case? 
however,  all  characters  in  the  name  must  be  of  the  same 
case . 

Basic  traditionally  has  restricted  each  statement  to 
one  line.  Extended  Basic  provides  the  "at"  sign  (  3  )  as  a 
continuation  character,  allowing  multiple  program  lines  to 
appear  as  one  statement  to  the  compiler.  This  is  particu- 
larly valuable  when  using  nested  IF  statements  with  the  ELSE 
clause  followed  by  another  IF  statement.  All  of  the  members 
of  the  primary  IF  statement  could  not  be  physically  con- 
tained on  one  line  on  conventional  timesharing  input/outout 
devices.  The  followina  example  demonstrates  the  improved 
readability  provided  by  continuation: 


lft 


if  x  =  v  then  a) 

z  =  x  (  i  /  i  )  3 
else  a) 

if  x  >  y  then  ai 

z  =  w  (  i  t  i  )  -  x  a) 
else  3 

z  =  w  (  i  /  i  )  -  y 

Both  Dartmouth  and  the  proposed  ANSI  Basic  include 
mandatory  statement  labeling  because  of  the  interactive 
editing  feature  of  Basic.  Extended  basic  does  not  use 
internal  interactive  editinq  and  subseauent  program  execu- 
tion. Changes  are  made  to  the  program  source  code/  using 
the  UNIX  text  editor  ana  subseauent lv  recompiling  the  pro- 
gram. Thus  line  labels  are  only  necessary  for  use  in  con- 
trol structures.  Examples  of  limited  line  labeling  are 
found  in  the  example  proarams  at  the  end  of  this  section. 

The  TAB  function  has  not  been  implemented.  The  use 
of  commas  and  semicolons  to  force  columnation  is  not  effec- 
tive. Partial  consistency  with  the  crooosed  standard  has 
been  maintained  bv  providing  a  continuation  flag  for  outDut. 
When  a  semicolon  appears  at  the  end  of  a  print  statement/ 
newline  is  not  invoked/  and  the  next  output  from  a  print 
statement  will  immediately  follow  the  existing  output. 
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3.  Control  Structures 

Extended  8asic  has  expanded  the  control  structures 
included  in  standard  Basic.  These  structures  consist  of  the 
FOR,  IF,  GOTO,  GOSUB,  ON,  STOP  and  RANDOMIZE  statements. 
Extended  Basic  significantly  increases  the  power  of  the  IF 
statement  by  providing  an  optional  ELSE  clause  and  by  allow- 
ing an  executable  statement  to  follow  the  THEN  and  the  ELSE. 
An  executable  statement  is  further  defined  in  Appendix  I. 
Any  such  executable  statement  may  be  used  within  an  IF 
statement.  Additionally,  the  IF  statement,  which  is  classi- 
fied as  a  simple  statement,  may  be  used  in  the  same  manner 
as  an  executable  statement  in  the  ELSE  clause.  Thus  IF 
statements  may  be  nested  to  an  infinite  depth;  however,  only 
one  executable  statement  may  exist  at  the  deeoest  level. 

4 .  String  Processing 

Extended  Basic  contains  features  wnich  orovide  for 
general  string  manipulation.  Strings  are  created  dynamical- 
ly, mav  vary  in  length  to  a  maximum  of  255  characters,  and 
mav  be  subscripted  to  one  dimension  to  create  a  vector  of 
strings.  The  predefined  function  LEN  returns  the  current 
length  of  a  string.  All  string  variables  and  string  array 
elements  are  initialized  as  null  strings  with  a  length  of 
zero.  Strinas  may  be  created  and  associated  with  a  variable 
using  the  replacement  oper ator  (  =  ),  an  INPUT  statement,  or  a 
READ  /statement.  A  string  entered  from  the  console  or  reaa 
from  an  external  file   may   not   be   enclosed   in   Quotation 
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m  a  r  k  s  f  but  should  be  delimited  by  newlines.  A  string  en- 
tered from  t,he  console  or  redirected  by  system  editing 
through  an  external  file  may  be  terminated  Dy  a  quotation 
mark  or  the  newline  symbol/  '\n'r  which  is  equivalent  to  the 
ASCII  line  feed  control  character.  Strings  appearing  in  a 
data  statement  within  the  oroaram  must  be  enclosed  in  quota- 
tion marks  since  they  form  an  integral  part  of  the  program. 
An  additional  feature  of  extended  Basic  allows  comparison  of 
String  variables  and  extraction  of  substring  segments. 

Strings  are  compared  usinq  the  same  relational 
operators  used  for  numeric  data.  Two  strings  are  equal  if 
and  only  if  the  strings  have  the  same  length  and  contain 
identical  characters. 

Substring  extraction  is  accomplished  using  substring 
notation^  i.e.  A  $ ( m { n ) .  This  expression  returns  the  sub- 
string of  string  variable  AS  beginning  at  character  position 
m  and  extending  for  a  length  of  n  characters. 

Other  predefined  functions  are  provided  to  facili- 
tate processing  strings.  The  CHRS  function  converts  a 
numeric  argument  into  a  single  ASCII  character  while  ASC 
converts  the  first  character  of  a  string  argument  into  a 
numer  i  c  value. 

5 .   Files 

Data  may  be  transferred  between  an  extended  Basic 
program   and   external   storage   using   the   file  processing 
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feature.  The  OPEN  statement  identifies  files  and  prepares 
them  for  access.   The  general  form  of  an  OPEN  statement  is: 

OPEN  (<external  file  numbe r> , <access  mode>)  <file  name> 

where  the  <file  name>  is  a  character  string,  which  is  called 
a  pathname  in  the  UNIX  heirarchical  file  system.  If  a  file 
exists  in  the  external  file  system  with  the  name  represented 
by  the  pathname,  then  that  file  is  opened.  Otherwise,  a 
file  is  created  with  that  name  provided  the  <access  mode> 
specifies  writing.  Each  file  currently  in  use  is  assigned  a 
unique  <external  file  number>  by  the  proqrammer.  This  file 
number  is  used  for  all  further  references  to  the  file  while 
it  remains  ooen  for  access.  Oata  is  transmitted  between  the 
external  file  and  the  extended  Basic  program  using  the  HEAD 
and  PRINT  statements  with  the  <  f  i  1 e  option>: 

READ  tt    <file  ootion>;  <read  list> 

PRINT  u    <file  option>;  <expression  list> 

The  <file  option>  specifies  the  file  desired  by  referencing 
the  <external  file  number>  defined  oy  a  preceeding  OPEN 
statement.  Access  to  a  file  may  be  terminated  by  the  CLOSE 
statement.  End-of-file  may  be  determined  with  an  IF  END 
statement  which  has  the  following  form: 

IF  END  U    <external  file  number>  THEN  <valid  statement> 

The  <valid  statement>  may  be  any  statement  or  expression 
which  is  permissible  with  a  standard  IF  statement. 
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6.   Standard  I  nou t /Out  nut 

Standard  inout  and  output  files  are  organized 
sequentially.  The  standard  inout  file  is  a  linear  seauence 
of  numeric  and  string  data  items  separated  by  commas  and 
newlines.  Each  reference  to  a  sequential  file  retrieves  the 
next  data  item  with  READ  U,  or  writes  another  data  item  with 
PRINT  #.  With  each  READ,  the  variables  in  the  read  list  are 
assianed  values  from  the  inout.  Line  terminators  are  treat- 
ed as  record  terminators.  There  is  no  concept  of  a  tradi- 
tional record  since  each  record  may  be  of  indefinite  length/ 
limited  only  by  the  medium  through  which  the  record  is 
c  reat  ed . 

Likewise/  with  each  PRINT  command/  values  from  the 
expression  list  are  written  to  the  file.  The  expressions 
are  written  to  the  standard  output  as  ASCII  strings  separat- 
ed by  spaces  except  for  the  last  data  item  in  the  list  which 
is  followed  by  a  newline.  The  use  of  newlines  in  this 
manner  allows  files  to  be  disolayen  usinq  system  utilities 
and  also  allows  files  created  with  a  text  editor  to  oe  read 
by  extended  Basic  programs. 

Since  data  type-checking  is  not  accomplished/  the 
seguence  of  item  data  tyoes  in  the  expression  list  should 
match  the  seauence  of  item  data  tyoes  in  the  external  file. 
Mismatched  data  types  will  return  undesirable  values. 
Numeric  data  types  reading  string  values  will  return  a  se- 
guence  of   zeros.   String  data  tyoes  reading  numeric  values 
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will  return  a  strinq  of  numbers. 

Data  may  be  apoended  to  external  files  by  specifyinq 
the  apoend  access  mode  when  an  OPEN  statement  is  used.  This 
allows  additional  data  items  to  be  written  at  the  end  of  the 
specified  file.  An  OPEN  SDecifyinq  write  access  will  create 
a  new  file  if  one  does  not  already  exist*  or  will  reopen  an 
existing  file*  overwriting  and  destroyinq  any  Dre-existing 
data. 

7.   External  Interface 

This  version  of  extended  Basic  was  oesigned  primari- 
ly  to  enhance  user  ability  to  program  with  a  simplistic 
language  which  could  interface  with  other  subsystems  avail- 
able within  the  UNIX  environment.  This  was  accomplished  Dy 
creating  the  EXTERN  and  CALL  statements. 

The  EXTEPN  statement  defines*  within  the  Basic  pro- 
gram* those  existing  external  subroutines  which  will  be  used 
for  any  software  implementation. 

Examples  of  subroutines  which  may  be  used  are  PO/i 
and  PRINTF  [9],  ROW  returns  the  value  of  the  variable  x 
raised  to  the  power  of  y*  performing  floating  point  exponen- 
tiation. PRINTF  converts*  formats  and  prints  all  arguments 
after  the  first  argument*  and  under  the  control  of  the  first 
argument  . 
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These  subroutines  would  be  defined  in  a  Basic  pro- 
gram by  : 

extern   dow ( doub 1 e , doub 1 e ) 

extern   orint  H?.cHarfdouble>  integer) 

While  these  examole  procedures  exist  in  the  UNIX 
system  library^  it  is  not  necessary  to  use  only  existing 
procedures.  The  user  may  create  procedures  for  specific 
needs  by  writing  and  compilina  unigue  procedures  in  the  C 
language  (lllr  and  including  the  loadable  version  of  the 
procedure  as  a  parameter  when  the  system  compile  command  for 
Basic,  LBAX,  is  issued. 

Once  a  procedure  has  been  defined  as  external »  it 
may  be  used  in  the  Basic  program  by  using  the  CALL  state- 
ment.  It  would  apoear  in  the  program  as: 

call     oow ( x , y ) 

call     printf(a$/S urn, prod) 

ExamDles  of  proarams  using  the  EXTERN  ana  CALL 
statements  are    provided  in  the  next  section. 

C.   EXAMPLE  PROGRAMS 

1.   Quadratic  Factors 

This  example  program  comoutes  the  factors  of  a  Qua- 
dratic eguat  i  on . 
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2  .   Magi  c  F i  gures 

This  program  draws  random  symmetric  fiaures  on  the 
TEKTRONIX  graohics  device.  It  uses  four  externally  defined 
graphics  routines  which  are  located  in  the  TEKTRONIX  li- 
brary. They  are  NEWPAG,  ANMODE,  INITT,  and  FINITT  [9]  . 
N  E  W  P  A  G  erases  the  screen  and  returns  the  alphanumeric  cursor 
to  the  HOME  o  o  s  i  t  i  o  n  ,  the  uoper  left  hand  corner  of  the 
screen  CIO}.  ANMODE  sets  the  cursor  to  the  alphanumeric 
mode.  IN  ITT  requires  one  argument  parameter  specifying  the 
character  transmission  rate  between  the  computer  and  termi- 
nal to  determine  the  delay  to  the  screen  when  erasure  is  be- 
ing oerformed.  FINITT  clears  the  buffers  and  moves  the 
pointer  to  the  oosition  indicated  Dv  the  two  parameters. 
The  externally  defined  procedure  PLOT  moves  the  pointer  to 
the  xfy  coordinates  indicated  by  the  arguments  ana  plots  a 
point  at  that  location.  The  sixth  externally  defined 
routine  is  MOVE,  These  orocedures  are  user  definear  and  are 
located  in  the  user's  external  file  area  ,  MOVE  causes  the 
pointer  to  be  moved  across  the  screen  without  drawing  on  the 
surface . 


extern   newpaoO 
extern   anmode (  ) 
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I.   IMPLEMENTATION 


A.   SYSTEM  DESIGN 

The  extended  Basic  compiler  was  designed  around  a 
table-driven  oarser  which  checks  statements  for  correct  syn- 
tax and  generates  assembly  code  written  into  a  UNIX  file. 
This  code  is  assembled  and  loaaed  together  with  requested 
and  required  libraries*  and  other  user  defined  program  seg- 
ments? by  the  assembler  and  loader  when  called  by  the  execu- 
tive program*  LBAX,  located  in  the  system  library. 

The  decision  to  compile  the  source  program  and  then  as- 
semble the  intermediate  lanauage  was  based  on  the  following 
consideration:  formal  parsing  techniaues  could  be  used  to 
analyze  the  syntax  of  the  source  program  making  extensions 
to  the  language  relatively  easy.  In  this  case*  an  L.ALR 
parser-generator  YACC  Ct>]  ,  was  used  to  automatically  gen- 
erate the  parse  tables  for  the  languaae. 

The  following  sections  discuss  the  design  of  the  extend- 
ed Basic  compiler  ana  the  implementation  of  the  system  exe- 
cutive proaram.  Source  listings  of  the  programs  are  con- 
tained in  the  Program  Listing  section  of  this  thesis. 
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B.   COMPILER  STRUCTURE 

1.   Compiler  Organization 

The  compiler  structure  reauires  one  oass  through  the 
source  program  to  oroduce  an  intermediate  assembly  language 
file.  This  pass  writes  all  numeric  constants  to  the  numeric 
constant  list/  determines  the  size  of  the  symbol  table  and 
inserts  symbols  with  associated  attributes/  outputs  inter- 
mediate level  code  to  a  file  based  upon  parse  actions  and 
semantics/  resolves  external  calls  and  produces  the  code  for 
access  to  external  files. 

The  intermediate  level  code  is  the  UNIX  assembly 
language.  The  formated  output  program/  to  be  loaded  and  ex- 
ecuted/ is  in  the  orooer  format  for  an  assembly  program. 
The  format  consists  of  text/  data/  and  bss  segments  [73. 

The  text  segment  contains  all  the  executaole  in- 
structions and  unmodified  data.  The  data  segment  may  con- 
tain text/  but  always  contains  initialized  data  which  mav  be 
modified  during  execution.  The  bss  segment  contains  unini- 
tialized data  areas  and  is  an  extension  of  the  data  seament. 

The  data  segment  contains  the  buffers  for  external 
file  manipulation  as  illustrated  in  Figure  1.  The  number  of 
buffers  may  not  exceed  fifteen  and  is  determined  by  the  OPEN 
actions  in  the  parser.  The  length  of  each  buffer  is  518 
bytes/  six  of  which  are  utilized  by  the  system  Input/Output 
commands  and  512  of  which  contain  the  string  of  data. 
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The  Basic  run-time  "stack"  is  established   in   the  bss 

segment   by   the   comoiler  and  is  fifty  bytes  in  length.  It 

uses  the  "last  in,  first  out"  concept  and  grows  downward  to- 
ward the  data  segment. 

1  .   Scanner 

The  scanner  analyzes  the  source  program,  returning  a 
seauence  of  tokens  to  the  oarser.  In  aodition,  the  scanner 
processes  data  statements  and  recognizes  continuation  char- 
acters. Analysis  of  the  first  non-blank  character  in  the 
input  stream  determines  the  aeneral  class  of  the  next  token. 
The  remainder  of  the  token  is  then  scanned/  Dlacina  each 
successive  character  into  one  of  the  accumulator  vectors/  ID 
or  IN  U  M  S  T  R  ,  used  for  iaentifier  and  numeric  items  respective- 
ly. 

If  the  scanner  recognizes  an  identifier,  it  searches 
the  reserved  word  list  to  determine  if  the  identifier  is  a 
reserved  word.  If  found,  the  token  associated  with  that 
reserved  word  is  returned  to  the  parser. 

In  the  event  the  token  is  not  a  reserved  word,  it  is 
validated  from  the  symbol  table  returning  an  error  code,  if 
not  defined,  or  the  symbol  table  location  index  number,  if 
defined.  In  order  to  be  a  valid  member  of  the  symbol  table, 
an  iaentifier  must  be  a  nume r i c - i den t i  f i e r  ,  string- 
identifier,  function-identifier,  array  identifier,  or 
built-in  function.   Whenever  a  symbol   not   defined   in   the 
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symbol  table  is  encountered/  it  is  verified  to  be  a  proper 
identifier/  occurring  in  a  valid  oosition  in  the  input 
string/  and  is  then  inserted  into  the  symbol  table. 

If  the  scanner  recognizes  a  token  as  a  numeric  con- 
stant/ the  number  list  is  searched  to  determine  if  the 
number  is  already  stored.  If  the  number  is  not  an  element 
of  the  list/  it  is  inserted  into  the  literal  numbers  table 
with  its  aopropriate  identifying  attributes. 

2 .   Symbo 1  Tao 1 e 

The  symbol  table  contains  attributes  of  program  and 
compiler  generated  entities  such  as  identifiers  and  function 
names.  The  information  storea  in  the  symbol  table  is  creat- 
ed and  referenced  by  the  compiler  to  verify  that  the  orogram 
is  semantical ly  correct  and  to  assist  in  code  qenerat ion. 
Access  to  the  symbol  table  is  Drovided  through  a  number  of 
procedures  operating  on  the  alobally  defined  symbol  table 
variables. 

The  symbol  table  is  a  C  language  structure  as  illus- 
trated in  Figure  2.  It  may  contain  uo  to  200  individual  ele- 
ments which  are  accessed  as  members  of  an  arravr  or  may  be 
identified  by  the  attributes  stored  in  each  structure  ele- 
ment vec  tor. 

The  final  elements  of  the  symbol  taole  contain  the 
names  of  the  built-in  (or  Dreoefined)  functions.  The  symbol 
table  grows  downward  with  subseauent  symbols  preceeding 
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the  built-in  function  symbol  names.  Individual  elements  of 
the  symbol  table  are  located  by  any  of  a  number  of  attri- 
butes as  illustrated  in  Figure  2.  Each  entry  in  the  symbol 
array  refers  to  a  structure  consisting  of  six  elements. 
Symbols  may  be  selected  based  upon  the  entries  in  any  one  of 
the  elements  or  any  combination  of  elements. 

The  attributes  of  a  symbol  are: 

Symool.   The  null  terminated  string   of   charac- 
ters representing  the  symbol. 

TyDe.   A  numeric   value   which   characterizes   a 
symbol  (-1  through  10) 

-  the  null  parameters  of  external  variables 

-  a  numeric  identifier 

-  a  nume  r  i  c  array 

-  a  string  identifier 

-  a  string  array 

-  a  Drogramm. er  aefinea  function 

-  a  numeric  built-in  function 

-  a  string  built-in  function 

-  a  si  mole  format 

-  a  numeric  format 

-  a  numeric  strinq  built-in  function 

-  an  external  variable 

Dimension.    The   dimension   of   an   array?   the 
number  of  parameters  for    a  function. 
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Length.   The  lenqth  of  a  string. 

Dope  Vector.  The  index  of  the  first  element  of 
the  array's  dope  vector  as  found  in  the  dooe  array  called 
DOPE. 

Amount.  When  used  with  built-in  functions*  this 
indicates  whether  or  not  the  built-in  function  is  being 
used.  For  arrays*  this  contains  the  number  of  elements  in  a 
numeric  array*  or  the  number  of  bytes  in  a  string  arrav. 

The  symbol  table  is  oDerated  on  using  specialized  pro- 
cedures. LOOKUP  is  called  with  a  pointer  which  identifies  a 
symbol  string.  It  invokes  COMPAR  repeatedly;  working  upward 
from  the  first  symbol  through  the  built-in  function  list. 
COMPAR  compares  two  string  arguments.  If  the  string  is 
found*  LOOKUP  returns  the  element  number  of  the  symbol. 
Otherwise  -1  is  returned.  INSERT  is  called  with  a  pointer 
argument  to  a  symool  string.  The  string  is  copied  into  the 
next  available  table  element  and  all  the  attribute  elements 
are  set  to  zero.  When  the  scanner  determines  the  symool 
type*  the  attributes  are  set  to  the  appropriate  values. 
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1.   Constant  List 

The  constant  1 ist  stores  literal  numbers  in  a  C 
language  structure  as  illustrated  in  Fiqure  3.  It  may  con- 
tain up  to  200  different  literal  numbers  which  may  be  ac- 
cessed as  members  of  an  array*  or  by  determining  the  charac- 
teristics of  each  element's  unique  attributes.  Each  entry 
in  the  constant  list  refers  to  a  structure  of  five  elements, 
which  contain  the  various  attributes. 

The  attributes  of  a  constant  are: 

Value.  The  actual  value  of  the  constant,  stored 
in  both  double  orecision  floating  ooint  and  integer  form. 

Declaration.  This  identifies  the  context  in 
which  a  number  was  first  encountered  which  n»ay  be  of  tyoe 
floating  point  or  integer,  determined  by  the  presence  of  a 
decimal  point  in  the  input  string.  For  code  generation  only 
the  floating  Doint  form  is  used. 

Use.  This  Determines  whether  the  value  has  been 
used  as  a  number,  a  statement  label,  which  may  precede  any 
statement,  or  a  label,  which  is  the  statement  label  to  which 
a  branch  statement  or  control  structure  refers. 

In  the  C  environment,  a  real  numoer  which  is  read  as 
data  for  an  integer  variable  is  truncated  to  integer  form. 
Similarly,  an  inteaer  numoer  read  as  data  for  a  real  vari- 
able is  transformed  to  real  notation.   when  a  value  is 
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Constant  Table  Structure 


structure  "numbers" 


".attributes" 


add r  p  s  s 

i 

. 

n  u  m  b  e  r  i 

ljsp 

1  use 

Dec 

} 


numbe r f 


Fiaure  5 
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stored  in  the  Basic  constant  list,  it  is  stored  in  both 
forms,  thus  requi  rinq  a  flag  indicatinq  the  proper  form  to 
be  accessed  when  the  number  is  used  during  execution  of  the 
program.  While  the  compiler  produces  output  which  performs 
arithmetic  ooerations  with  double  precision  floating  point 
numbers  only,  labels  and  statement  labels  should  be  of  in- 
teger f  orm  . 

1 .   External  Files 

External  file  management  is  implemented  usina  the 
UNIX  system  calls  OPEN  and  CLOSE,  and  system  routines  GETC 
and  PUTC  [9] . 

Each  time  the  parser  encounters  an  OPEN  statement,  a 
flag  is  set  in  an  element  of  the  compiler  array  FDS,  which 
contains  a  file  descriptor  status  for  each  external  file. 
The  element  number  corresoonas  directly  to  the  referenced 
external  file.  In  the  event  a  command  to  CLOSE  a  previously 
unopened  file  occurs,  an  error  flag  is  set  for  the 
corresponding  file.  Similarly,  efforts  to  P  E  A  D  from  or 
PRINT  to  an  unopened  file  will  cause  an  error  flag  to  be  set 
in  the  FDS  array.  These  errors  are  reDorteo  after  the 
scanner  completes  its  function,  during  the  acceptance  ac- 
tions of  the  compiler. 

While  the  parser  is  aenerating  assembly  code,  the 
string  name  of  each  referenced  file  is  inserted  as  a  con- 
stant in  the  assembly  source   program.    This   provides   the 
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string  argument  which  is  requi  red  as  one  of   the   parameters 
for  the  UNIX  system  routine  OPEN. 

2 .  Parser 

The  Darser  is  a  table-driven  pushdown  automaton.  It 
receives  a  stream  of  tokens  from  the  scanner  and  analyzes 
them  to  determine  if  they  form  a  sentence  in  the  extended 
Basic  grammar.  As  the  Darser  acceDts  tokens*  one  of  three 
actions  will  be  performed.  It  may  stack  the  token  ana  con- 
tinue to  analyze  the  source  program  by  fetching  another  to- 
ken* or  the  parser  may  determine  that  it  has  recognized  the 
right  part  of  one  of  the  productions  of  the  language  and 
cause  a  reduction  to  take  olace.  Finally*  the  parser  may 
determine  that  the  current  strina  of  tokens  aoes  not  produce 
a  valid  right  part  for  a  production  and  thus  produces  a  syn- 
tax error  message. 

3.  Code  Generation 

In  addition  to  verifying  the  syntax  of  source  state- 
ments* the  parser  also  acts  as  a  transducer  by  associating 
semantic  actions  with  reductions.  Each  time  the  parser 
determines  that  a  reduction  shoula  take  olace*  the  procedure 
SEMANT  is  called  with  the  number  of  the  oroduction  passed  as 
a  parameter.  The  constant  list  contains  the  information  re- 
quired to  perform  the  semantic  action  associated  with  the 
selected  production.  The  action  may  include  generation  of 
assembly  language  code  and  ooerations  such  as   symbol   table 
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manipulations  and  updating  of  the  Darse  arrays.    Some   pro- 
ductions have  no  semantic  actions  associated  with  them. 

In  the  fol lowinq  section*  the  syntax  of  the  language 
is  listed  in  BNF  notation  [81.  A  listing  of  the  grammar 
with  appropriate  semantic  actions  is  provided  in  the  program 
listing  following  the  appendices  of  this  thesis.  The  token 
'cr'  means  carriage  return. 

a.   Extended  Basic  Language  Structure 

The  overall   structure   of   the   extenaed   Basic 
language  is  defined  by  the  following  syntax  equat  ions: 


(1)  <program>  ::=  <statement  list>  <end  statement> 

(2)  <statement  list>  ::=  <si^ple  statement> 

(3)  !<statement  list>  <simole  statement) 


(4)  <end  statement>  : 
(5) 


:=  <statement  label>  E  i\  D  cr 
!END  cr 


(6)  <simple  statement>  : 
(7) 

(8) 

(9) 

(10) 

(11) 

(12) 
(13) 
(14) 

(15) 
(lb) 
(17) 
(18) 
(19) 
(20) 
(21) 


<statement  Iabel>  <exec  state>  cr 
! <st  at  emen t  1 abe 1 > 

<  i  f  stat  emen  t  >  cr 
!<statement  label> 

<data  statement>  cr 
!<statement  1  a  b  e  1  > 

<de  f  stat  ernen  t  >  c  r 
! <st at  emen t  1 abe 1 > 

<rem  statement>  cr 
!<statement  1  a  b  e 1 > 

<extern  statement>  cr 
!<for  stat  emen  t  > 
! <d  i  m  stat  emen t  > 
!<exec  state>  cr 
!  <  i  f  stat  emen t  >  cr 
!<data  statement>  cr 
!<def  statement>  cr 
!<rem  statement)  cr 
!<extern  statement)  cr 
!<error>  cr 
!cr 
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(22)  <exec  state>  : 

(23) 

(2^) 

(25) 

(26) 

(27) 

(2<?) 

(30) 

(31) 

(32) 

(33) 

(34) 

(35) 


<  read 

<  res  t  o 
<ODen 
<c 1 ose 

<  i  npu  t 
<readf 
<or  i  n t 
<w  r  i  t  e 
<stoo 
<on  s  t 
<branc 
<1  et  s 
<cal  1 


stat 

re  s 

stat 

st  a 

s  t  a 

s  t  a 

s  t  a 

s  t  a 

stat 

at  em 

h  st 

tate 

stat 


emen  t  > 
tat  emen t  > 
emen  t  > 
t  ement  > 
t  emen  t  > 
t  ement  > 
t  ement  > 
t  e  m  e  n  t  > 
emen  t  > 
ent> 

at  emen  t  > 
men  t  > 
emen  t  > 


b.   Assignment  Statements  and  Expressions 

The  followinq  syntax  equations  are  for  prooerly 
formed  assignment  statements  and  exoressions.  The  tyoes  of 
operands  which  are  acceptable  with  each  of  the  binarv  opera- 
tors is  shown  in  Table  1.  The  operand  for  the  unary  opera- 
tors +  and  -  must  be  numeric  quantities.  The  operand  for 
the  unary  operator  NOT  must  be  a  logical  Quantity.  The 
grammar  rules  cause  a  check  to  be  made/  insuring  that  the 
above  semantic  rules  are    followed. 

Checks  are  also  made  to  insure  that  subscrioted 
variables  are  dimensioned  before  being  used/  that  the 
correct  number  of  subscripts  is  provided/  that  each  suD- 
scriot  is  of  tvpe  numeric/  and  tnat  a  subscripted  variable 
is  not  used  as  a  FOR  Iood  index.  Likewise/  checks  are  make 
on  the  number  and  tyDe  of  oarameters  in  a  function  call  to 
insure  they  match  the  function  definition.  In  rule  (4b)  the 
'!'  appears  literally  in  the  equation. 


(36)  <1 et  st  atement  >  : 
(37) 


:=  <strinq  let> 
!  <nume  r  i  c  1 et  > 
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(38 

(39 

(40 

(41 

(42 

(43 

(44 

(45 

(46 


(47 

(48 

(49 

(50 

(51 

(52 

(53 

(54 

(55 

(56 

(57 

(58 

(59 

(60 

(61 

(62 

(63 

(64 


(65 

(66 

(67 

(68 

(69 

(70 

(71 

(72 

(73 

(74 

(75 

(76 

<string  let>  ll-    LET  <string  ref>  =  <st  ring  exp> 

!<st ring  ref>  =  <st ring  exp> 

<string  ref>  '.  t=  <string  i  d  > 

<subs  t  r  i  ng  re  f  > 
<string  array  ref > 
<sarray  subst  ref > 

=  <st ring  ref  1o>  <subst ring  soec> 

=  <st  ring  id>  ( 

:=  <numeric  exp>  !  <numeric  exp>  ) 


<substring  ref>  : 
<string  ref  1d>  : 
<substring  soec> 


<numeric  exp>  ::=  <term> 

!<numeric  exp>  +  <tem> 
!<numeric  exp>  -  <ternn> 
!  +  <t erm> 
i  -  < t  erm> 

<term>  ::=  <primary> 

!<term>  *  <primary> 
!<term>  /  <orimary> 

<Drimarv>  ::=  <Drimary  element> 

!<primary>  T  <orimary  e  1  e  ^  e  n  t  > 

<primary  element>  ::=  <nurreric  ref  > 

<nurrper> 
<bi  f  > 

(  <nufr,e  r  i  c  exp>  ) 
<func  ref > 

<numeric  ref>  ::  =  <nu^eric  i d> 

!<array  ref> 

<array  ref >  ::=  <arrav  ref  head>  <numeric  exo>  ) 

(array  ref    head>  : : =  <array  id>  ( 

!<array  ref  heaa>  <nu"neric  exp>  , 

<bif>  ::=  <string  bif  ref>  <string  exo>  ) 

!<numeric  bif  ref>  <numeric  exp>  ) 
|<numeric  bif  noarii> 

<string  bif  ref>     ::=  <string  Dif>  ( 

!<numeric  bif  ref>  <numeric  exp>  / 

<  n  u  m  e  r  i  c  bif  ref>     ::=  <  n  u  m  e  r  i  c  bif>  ( 

!<numeric  bif  ref >  <numeric  exp> 

<st ring  exp>  ::  =  <st  ring  ref> 

! <st ri ng> 
!<str  num  bif>  (  <numeric  e  x  d  >  ) 
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(77 

(78 

(79 

(80 

(81 

(82 

(83 


(84) 

(85) 

(8b) 

(87) 

(88) 

(89) 

(90) 

(91  ) 

(92) 

(93) 

(94) 

(95) 

(96) 

(97) 

(98) 

(99) 

(  100) 

(101) 

(102) 

(103) 

<numeric  b  i  f  nparm>  ::=  <numeric  b  i  f  > 

<func  ref>  ::=  <func  ref  head>  <numeric  exo>  ) 

<func  ref    head>  ::=  <funct ion  i d>  ( 

l<func  ref  head>  <numeric  exp>  , 

<st  ring  array  ref>  ::=  <strinq  ref  lo>  <numeric  exp>  ) 

<sarray  subst  ref >  ::=  <sarray  subst  1d> 

<substring  spec  > 

<sarray  subst  1 d>  ::=  <st ring  array  ref>  ( 

<numeric  let>  :  J  =  LET  <  n  u  m  e  r  i  c  ref>    -    <  n  u  m  e  r  i  c  exD> 

!<nu^eric  ref>  =  <numeric  exo> 

<rel  exo>  ::=  <re1  exo>  XOR  <rel  term> 
!<rel  exD>  OR  <rel  term> 
!  <  re  1  t  e  rm> 

<  r  e  1  t  e  r*rn  >  ::=  <rel  term>  AND  <rel  primary> 
!<rel  primary> 

<rel  orimary>  ::=  <nuineric  exo>  <rel>  <nu<neric  exp> 

! <st  ring  exD>  <rel>  <st ring  exo> 
! (  <rel  exc>  ) 
! NOT  (  <rel  exo>  ) 


<rel> 


i  = 

> 

< 

<  = 
>  = 
<> 
-i  — 

<  re  1 spec> 


c.   Control  Statements 

The  control  statements  in  extended  Basic  are  de' 
fined  by  the  following  syntax  equations: 


(104)  <for  statement>  : 


=  <statement  label>  <for  clause> 
<statement  list>  <next  clause> 
!<for  clause>  <statement  list> 
<nex  t  c 1 ause> 


(105)  <statement  label>  ::=  <number> 
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(106) 

(107) 

(108) 

(109) 

(110) 

(111) 

(112) 

(1  13) 

(114) 

(115) 

(116) 

(117) 

(1  18) 

(119) 

(120) 

(121) 

(122) 

(123) 

(12a) 

(125) 

(126) 

(127) 

(128) 

(129) 

(130) 

(131) 

(132) 

(133) 

(134) 

(135) 

(136) 

(137) 

(138) 

(139) 

(140) 

<for  clause>  ::=  <for  head>  cr 

!<for  head>  STEP  <numeric  exp>  cr 

<for  head>  ::=  FOR  <for  init>  TO  <numeric  exp> 

<next  clause>  ::=  <statement  label>  NEXT 

<nume  r i  c  i  d>  cr 
NEXT  <nuneric  i  d>  cr 
NEXT  cr 
<statement  label>  NEXT  cr 

<f or  i  n  i  t  >  ::=  <numeric  id>  =  <numeric  exp> 

<if  statement)  ::=  <if  clause>  <exec  state> 

!<if  clause>  <el se  c'ause> 

<exec  s  t  a t  e> 
!<if  clause>  <else  clause> 

<i  f  stat  ement  > 
!<if  head>  <aoto>  <number> 
!<if  c1ause>  <number> 
!<if  clause>  <else  clause>  <number> 

<else  clause>  ::=  <exec  state>  ELSE 

!<number>  ELSE 

<if  c!ause>  ::=  <if  head>  THEN 

<if  head>  ::=  IF  <rel  exp> 

!  IF  END  U    <numper> 

<stoP  statement)  ::=  STOP 

<rerr,  statement>  ::=  P  E  ^ 

<on  statement)  ::=  <on  heaci>  <1abel> 

<on  head>  ::=  <on  beqin> 

!<on  head>  <label> 

<on  beqin>  ::  =  ON  <numeric  exo>  <on  case  sel> 
ION  <  n  u  m  e  r  i  c  exp>  <on  selector> 

<on  case  sel>  : :=  GOSUB 

!  GO  SUB 

<on  sel ector>  : : =  THEN 

!  GOTO 
!  GO  TO 

<  1  abe  1  >  :  :  =  <nuirber> 

<branch  statement)  ::=  <qosub>  <label> 

! <qot ol >  < 1 abel > 
!  RETURN 
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(141)  <gosub>  ::=  GOSUB 

(142)  |GO  SUB 

(143)  <gotol >  : : =  goto 

(144)  <goto>  ::=  GOTO 

(145)  JGO  TO 

d.   Declaration  Statements 


All  subscripted  quant i  ties  in  8asic  shoula  be 
declared  prior  to  use  in  the  program.  The  declaration 
statements  in  extended  Basic  are  given  ov  the  following  syn- 
tax equat ions: 


(146 
(147 

(148 
(149 

(150 

(151 

(152 
(153 
(154 
(155 

(156 

(157 
(158 

(159 
(160 
(161 

(162 
(163 
(164 
(165 

(166 

(167 

(168 


<dim  statement>  ::=  <sdim  head>  cr 

!  <d  i  m  head>  c  r 

<dim  head>  ::=  <  d  i  m  sarray  head>  <numoer>  ) 
!<dim  head  a  1  p  >  n  u  m  b  e  r  >  ) 

<sdim  head>  ::=  <dim  head  slo>  <number>  ) 

<dim  sarray  h  e  a  d  >  ::=  <sdim  h  e  a  d  >  ( 

<dim  head  1 p >  ::=  <statement  1  a  b  e  1  >  D I ^ 

I0IM 

! <sd  i  m  head>  » 
!<dim  h e a d >  t 

<dim  head  slp>  ::=  <  d  i  m    head  1 p  >  <string  id>  ( 

<dim  head  alp>  ::=  <dim  head  lp>  <numeric  id>  ( 

!<dim  head  alo>  <number>  , 

<data  statement>  ::=  <data  head>  <number> 

!<data  minus>  <number> 
!<data  head>  <string> 

<dat  a  head>  : : =  DATA 

<data  head>  <number>  , 

<data  minus>  <number>  , 

<data  head>  <string>  / 

<data  minus>  ::=  <daf a  head>  - 

<def  statement>  ::=  <def  left  part>  =  <numeric  exp> 

<def  left  part>  ::=  DEF  <cief    head>  <numeric  i  d>  ) 
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(169)  <def  head> 
(170) 


: =  <  func t  i  on  i  d>  ( 

!<def  head*  <numeric  id>  / 


Input/Output  Statements 


The  input/output  statements   in  extended   Basic 

are   consistent   with   the   ANSI   proposed  standards.   Care 

d   be   exercised   in   the    use    of  punctuation    in 

/output   statements   as  defined  bv  the  following  syntax 
ions: 

<ODen  statement>  ::=  <ooen  head*  <number>  )  <strinq> 

<ooen  head>  ::=  OPEN  (  <number>  , 

<read  statement>  ::=  <read  head>  <numeric  ref> 

!<read  head>  <strinq  ref> 

<read  head>  : : =  READ 

!<read  head>  <numeric  ref>  t 
!<read  head>  <st rinq  ref>  / 

<input  statement>  ::=  <input  head>  <nurneric  ref> 

!<inDut  heaa>  <st ring  ref> 

<i  nput  head>  : : =  INPUT 

<inDut  head>  <sf  ring  exD>  ; 

<inout  head>  <numeric  ref >  t 

<inout  head>  <strinq  ref>  t 

<readf  statement*  ::=  <readf  head>  <numeric  ref> 

!<readf  head>  <st ring  ref> 

<readf  head>  ::=  <read  file> 

!<readf  head>  <numeric  ref>  / 
!<readf  head>  <string  ref>  f 

<read  file*  ::=  READ  3  <number>  ,     <numeric  exo*  ; 

IREAO  tt    <number>  ; 


shou  1 

i  nout 

eguat 

(171) 

(172) 

(173) 

(17a) 

(175) 

(176) 

(177) 

(178) 

(179) 

(180) 

(181  ) 

(182) 

(183) 

(18a) 

(185) 

(186) 

(187) 

(188) 

(189) 

(190) 

(191  ) 

(  192) 

(193) 

(19a) 

(195) 

(196) 

(197) 

<print  stat  emen  t  > 


:=  PRINT 

<print  head>  <numeric  exo* 

<orint  head*  <st  rinq  exp> 

<print  head>  <format  element* 

<orint  head>  <numeric  exp>  ; 

<print  head>  <st  ring  exD>  '> 

<orint  head*  <format  element*  '> 


a5 


(198 

(199 

(200 

(201 

(202 

(203 

(204 

(205 

(206 

(207 

(208 

(209 

(210 

(211 

(212 

(213 

(214 

(215 
(216 
(217 


<pr  i  nt  head> 


:=  PRINT 

<orint  head>  <numeric  exp>  , 

<  p  r  i  n  t  head>  <strinq  exp>  , 

<print  head>  <format  element>  , 

<print  head>  <numeric  exp>  ; 

<orint  head>  <strinq  exp>  ; 

<print  head>  <format  exp>  ; 


<wri  te  stateitent>  t:=  <wri  te  head>  <numeric  exp> 

!<wri  te  head>  <st  ring  exp> 


<wr  i  t e  head> 


<w  r  i  t  e  f  i  1 e > 


:=  <wri  te  f  i 1 e > 

!< write  h  e  a  d  >  <numeric  e  x  d  >  , 

!<wri te  head>  <st ring  e  x  c  >  , 

:=  PRINT  #    <nun|ber>  ,     <numeric  exo>  ; 
[PRINT  U    <number>  ; 


<fomat  element>  ::=  <simple  format> 

!<format  left  part>  <numeric  exo>) 

<format  left  part>  ::=  <numeric  format >  ( 

<restore  statefnent>  ::=  RESTORE 

[RANDOMIZE 

[RANDOMIZE  (  <numeric  exc>  ) 


(218)  <close  statement>  ::=  CLOSE  (  <number>  ) 

f.   External  Statements 

The  external  ana  call  statements  in  extended 
Basic  are  the  basis  of  the  uniqueness  of  this  imolementa- 
tion.  These  statements  provide  interface  capability  with 
other  system  Droqrams  and  Droceaures.  They  are  defined  by 
the  followinq  syntax  eauat ions: 

(219)  <extern  statement)  ::=  <extern  head> 

(220)  <extern  heaa>  ::=  EXTERN  TYPE  <numeric  i d>  <Darm  aef> 


(221) 
(222) 

(.225) 


(224)  <oarm  def >  :  :  = 


[EXTERN  <numeric  id>  <  d  a  r  m  def> 
[EXTERN  &  TYPE  <numeric  id> 

<Da  rm  de  f > 
[<extern  head>  /  <numeric  id> 

<pa rm  aef > 
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<parm  head> 


<ca 1 1  stat  ement > 


(225) 
(226) 
(227) 

(228) 
(229) 
(230) 

(231) 
(231) 
(232) 
(233) 
(23a) 
(235) 

(236) 
(237) 
(238) 
(239) 
(240) 
(241  ) 
(242) 


(243)  <cal 1  nhead> 

(244)  <cal 1  shead> 


(  ) 
<oarw    head>  TYPE  ) 
<parm  head>  8.  TYPE  ) 


=  ( 


|<Darm  head>  TYPE  , 
!<oarm  head>  &  TYPE 


<cal 
!<ca) 
!<cal 
!<cal 
!<cal 
!<cal 


head>  ) 

nhead> 

head>  <numeric  exr>  ) 

head>  <a  r  ray  i  a>     ) 

head>  <st  ring  exp>  ) 

head>  &  <numeric  ia>  ) 


<cal 1  head> 


<cal 1  nhead>  ( 

<cal1  nhead>  =  <numeric  id> 

<call  shead>  =  <nuireric  id> 

<call  head>  <numeric  e*o>  / 

<cal1  heaa>  <array  id>  , 

<call  head>  <strina  id>  , 

<call  Head>  &  <nurreric  n> 

C^LL  <nurre  r  i  c  i  d> 

CALL  <strinq  ref> 
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Table  1 
Permissable  Variable  Types  With  Binary  Operators 


String 


numeri c 


St  r  i  nq 
t  yoe  1 
error 


nume  r l c 

error 

t  ype  1 f     t  yoe  2 


type  1  operands 


< 
<  = 

> 


>  = 
<> 


=  (assignment) 


type  2  operands 

+ 


t 

and 
or 

xor 
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I.   RECOMMENDATIONS  FOR  FUTURE  DEVELOPMENTS 


A  number  of  additional  extensions  to  this  Basic 
lanquaae  could  be  made.  These  include  formatted 
i nput /outout f  a  TRACE  statement  for  debugging,  additional 
string  orocessing  features*  scientific  notation,  and  random 
access  for  external  files. 

Basic  orocessors  have  traditionally  i mp 1 e^en t eo  format- 
ted input/output  by  modifying  the  orint  statement  as  shown 
below: 

PRINT  USING  <format  string>  ;  <exoression> 
The  format  string  contains  a  description  of  the  format  into 
which  the  values  in  the  expression  list  are  to  be  olaced. 
This  might  be  implemented  usinq  the  PRINTF  routine  in  trie 
UNIX  library  or  oy  allowina  the  user  to  directly  yse  PRINTF 
vice  the  CALL  and  EXTERN  statements. 

A  TRACE  instruction,  similar  to  that  orovioed  in  many 
COBOL  i mo  1 emen t a t i ons ,  would  list  the  source  program  line 
numbers  as  each  statement  was  executed  and  ootionally  print 
the  current  values  of  selected  variaoles.  An  accompanying 
UNTRACE  statement  would  disable  the  trace.  This  could  be 
easily  imolemented  using  flags. 

Additional  string  operators  could  include  a  search 
function   which   would   determine  the  oosition  of  one  string 
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within  another,  and  a  substring  replacement  operation  which 
would  replace  a  substring  with  another  (possibly  null) 
string.  String  concatenation  could  be  implemented  for  use 
in  building  strings  by  buffered  inout/outout  and  using  the 
UNIX  routines  GETC  and  PUTC. 

Random  access  to  elements  of  external  files  would  be 
enhancing  for  file  managements  but  would  not  greatly  in- 
crease the  flexibility  of  the  existing  file  manacement 
methods  used  in  oraphics  work.  This  might  be  accompl  i  shed 
by  creatina  an  array  of  d  o  o  e  vectors  at  the  oeginning  of 
each  external  file.  Each  vector  would  contain  the  beginninq 
address  of  each  record  and  the  length  o*  the  record. 

Scientific  notation  would  enhance  numeric  output  by  ex- 
panding the  range  of  numbers  which  could  be  comfortably 
printed  on  an  output  page. 
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II.   CONCLUSIONS 


The  extended  Basic  compiler  presented  in  this  thesis  is 
a  working  software  oackage.  It  has  demonstrated  that  it  is 
capaole  of  performing  graphics  work  in  the  Naval  Postgradu- 
ate School  Computer  Laboratory*  and  will  orovioe  a  measur- 
able improvement  to  graphics  efforts  of  Doth  Computer  Sci- 
ence and  non-Computer  Science  students  than  was  previously 
afforded  by  the  UNIX  system  library  of  programming 
1  anguages . 

Improvements  noted  in  the  Recommendations  section  ao 
not  represent  all  cossible  i mo rovemen t s ,  but  only  those 
developed  or  generated  durina  development  and  testing  of 
this  Basic  comoiler. 
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APPENDIX  I  -  EXTENDED  BASIC  LANGUAGE  MANUAL 


Elements  of  extended  Basic  are  listed  in  alphabetical 
order  in  this  section  of  the  thesis.  A  synopsis  of  each 
element  is  given*  followed  by  a  descriotion  ana  examples  of 
its  use.  The  intent  is  to  orovide  a  reference  for  the 
features  of  this  implementation  of  BASIC  and  not  to  teach 
the  BASIC  language. 

A  program  consists  of  one  or  more  properly  formed  ex- 
tended Basic  statements.  An  END  statement*  which  must  o  e 
present*  terminates  the  orogram*  ana  additional  statements 
are  ignored.  The  ASCII  character  subset*  consisting  of  al- 
ohanumerics  and  the  specified  soecial  characters*  is  accept- 
ed. 

In  this  section*  the  "synopsis"  oresents  the  general 
form  of  the  element.  Square  brackets*  U  *  denote  an  ootion- 
al  feature*  while  braces*  O  *  indicate  that  the  enclosed 
section  may  be  reoeated  zero  or  more  times.  Terms  enclosed 
in  <  >  are  either*  non-terminal  elements  of  the  language* 
which  are  further  defined  in  this  section*  or  terminal  sym- 
bols. All  special  characters  and  capitalized  words  are  ter- 
minal symoo 1 s . 


52 


ABS 


ELEMENT: 

ABS  predefined  function 

> 

SYNOPSIS: 

ABS  (  <expression>  ) 

DESCRIPTION: 

The  ABS  function  returns  the  absolute  value  of  the 
<expression>.  The  argument  should  evaluate  to  a 
floating  point  number. 

EXAMPLES: 

ABS(X) 
ABS(X*Y) 
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A3C 


ELEMENT: 

ASC  predefined  function 

SYNOPSIS: 

ASC  (  <exDression>  ) 

DESCRIPTION: 

The  ASC  function  returns  the  ASCII  numeric  value  of 
the  first  character  of  the  <expression>.  The  argument 
should  evaluate  to  a  string. 

EXAMPLES: 

ASC(A$) 
ASC(MAM) 
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A  T  A  N 


ELEMENT: 

ATAN  predefined  function 

SYNOPSIS: 

ATAN  (  <exoression>  ) 

DESCRIPTION: 

The  ATAN  function  returns  the  arctanaent  of  the  <ex- 
Dression>.  The  argument  should  evaluate  to  a  floating 
point  number . 

EXAMPLES: 

ATAN(X) 

ATAN (SORT (SIN (X) ) ) 


PROGRAMMING  NOTE: 


All  other  inverse  trigonometric  functions  mav  be   com1 
puted  from  the  arctangent  using  simcle  identities. 
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ELEMENT: 

CALL  stat  ement 


CALL 


SYNOPSIS: 


l<line  number>]  CALL  (  <variab!e> 
<identifier>  (  (  <exoression> 
{ ,     <express  i  on>  >  ) ] 


=  1 


DESCRIPTION: 


The  CALL  statement  references  an  externally  defined  C 
procedure  or  function.  The  ODtional  <variab1e>  may  be 
either  a  numeric  identifier  or  a  string  reference. 
The  CALL  <identifier>  may  be  ud  to  9  characters  in 
length.  If  the  <variable>  is  present,  then  the  <iden- 
tifier>  references  a  function  and  returns  a  value.  If 
the  <variable>  is  absent,  the  < i dent i f i e r>  references 
a  procedure  and  returns  no  value. 

A  CALL  statement  should  be  preceeded  by  an  EXTERN 
statement  defining  the  form  and  nature  of  the  <iden- 
t  i  f  i  er>  . 

A  CALL  statement  may  have  an  infinite  number  of  argu- 
ments which  should  each  be  valid  <e xpress i ons> 
evaluating  to  numeric  or  character  values.  Arguments 
may  further  evaluate  to  array  pointers  if  previously 
declared  as  such  in  the  EXTERN  statement.  If  the  ar- 
gument is  declared  to  be  of  type  char/  then  the  argu- 
ment value  may  consist  of  one  character.  To  pass  a 
string  of  characters  as  an  argument*  the  araument  may 
be  of  type  &  char,  which  implies  a  vector  of  charac- 
ters, or    a  character  string. 

If  a  CALL  statement  has  no  arguments,  then  the  entire 
argument  list  may  be  omitted  from  the  statement. 


EXAMPLES: 

CALL  j  =  testl  ("test  X") 

call  sink(  ship  ) 

call  aS(3{5)  =  strg(  less  ) 

CALL  1  i  st 

call  movabs  ( x , y ) 
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PROGRAMMING  NOTE: 

< i den t i f i e rs>  way    be  uo  to  nine  characters  in  lenoth 
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CHRS 
ELEMENT: 

CHRS  predefined  function 

SYNOPSIS: 

CHRS  (  <expression>  ) 

DESCRIPTION: 

The  CHRS  function  returns  a  character  string  of  lenqth 
1  consisting  of  the  character  whose  ASCII  equivalent 
is  the  <exoression>  truncated  to  an  integer  modulo 
128.  The  argument  may  evaluate  to  a  floating  ooint 
numbe  r . 

EXAMPLES: 

CHRS(A) 

CHRSC 12) 

CHR$( (A+B/C) *SIN(X) ) 

PROGRAMMING  NOTE: 

CHRS  can  be  used  to  send  the  standard  ASCII  control 
characters  such  as  a  formfeed  to  the  output  device. 
The  following  statement  would  accomplish  this: 

PRINT  CHRS(IO) 
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CLOSE 


ELEMENT: 

CLOSE  statement 

SYNOPSIS: 

[<line  number>]  CLOSE  (<constant>) 


DESCRIPTION: 


The  CLOSE  statement  causes  the  file  s  d  e  c  i  f  i  e  d   by   its 

<constant>   to   be  closed.    Before   the   file  may  be 

referenced  again  it  shoula  be  reooenea  using   an   OPEN 
stat  ement . 


A  terminal  error  occurs  if  the  specified  file  has 
previously  appeared  in  an  OPEN  statement. 


not 


EXAMPLES: 


CLOSE  (1) 


PROGRAMMING  NOTE: 


On  normal  completion  of  a  Drogram  all  ooen  files  are 
closed.  If  the  Drogram  terminates  abnormally  it  is 
possible  that  files  created  oy  the  program  may  be 
lost. 
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COL 
ELEMENT: 

COL  predefined  function 

SYNOPSIS: 

COL  (  <expression>  ) 

DESCRIPTION: 

The  COL  function  defines  the  column  width  for  a  numer- 
ic output.  The  default  width  value  is  10  digits*  in- 
cluding the  sign  and  the  decimal  point. 

The  COL  function  should  be  used  only  in  a  PRINT  state- 
ment . 

EXAMPLES: 

print  C0LC12) 
ori  nt  COL ( i  * j ) 
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<cons t  an t  > 
ELEMENT: 

<const  ant  > 

SYNOPSIS: 

[<sign>]  <inteqer>  [.]   [  <integer>  ] 
["]  <character  string>  ["] 

DESCRIPTION: 

A  <constant>  may  be  either  a  numeric  constant  or  a 
string  constant.  All  numeric  constants  are  stored  as 
floating  ooint  numbers.  Strings  may  contain  anv  ASCII 
character  exceot  >  *     which  may  be  reoresented  as  >. 

Numeric  constants  may  be  either  a  signed  or  unsigned 
integer  or  decimal  number.  String  constants  may  oe 
up  to  255  characters  in  length.  Strings  entered  from 
the  console  for  an  INPUT  statement  may  net  contain 
quotes*  however,  a  double  auote  or  a  newline  may  be 
used  to  terminate  a  string  during  INPUT  or  READ. 
Strings  entered  from  a  data  statement  should  oe  en- 
closed in  Quotes*  since  they  are  found  in  the  crogram. 
Strinqs  read  from  a  file  may  not  contain  quotes. 

EXAMPLES: 
10 

-100.75639 
"THIS  IS  THE  ANSWER" 

PROGRAMMING  NOTE: 

The  line  continuation  character  (a))  may  not  be  used  in 
the  orogram  for  carrying  strinq  constants  to  another 
line. 
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COS 
ELEMENT: 

COS  predefined  function 

SYNOPSIS: 

C0S(  <exoression>  ) 

DESCRIPTION: 

COS  is  a  function  which  returns  the  cosine  of  the  <ex- 
pression>.  The  argument  should  evaluate  to  a  floating 
point  number  expressed  in  radians. 

EXAMPLES: 

C0S(8) 
COSCSQRT (X-Y) ) 


bZ 


COSH 


ELEMENT: 

COSH  predefined  function 

SYNOPSIS: 

COSH  (  <exoression>  ) 

DESCRIPTION: 

COSH  is  a  function  which  returns  the  hyperbolic  cosine 
of  the  <exo ress i on> .  The  argument  shoulo  evaluate  to 
a  floating  Doint  number. 


EXAMPLES: 


COSH(X) 
C0SH(XT2+YT2) 
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DATA 


ELEMENT: 

DATA  statement 

SYNOPSIS: 

[<line  number>]  DATA  <constant>  {,  <constant>> 


DESCRIPTION: 


DATA 

Stan 
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seoa 

men  t 
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Should  either  tvoe  of  data  be  exhausted*  a  restore  for 
that  tyoe  only  is  generated.  If  a  type  is  requested 
when  no  data  is  defined*  a  terminal  error  results. 


EXAMPLES: 

10  DATA  1  0.0,  1  1  .72,  100 

DATA  "ThHs  is  a  s  t  r  i  ng  .  "  ,  5  ,  1  0  .  a  ,  "  The  End" 

PROGRAMMING  MOTE: 

The  RESTORE  command  may  be  used  to  reread    a  data  line 
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DEF 


ELEMENT: 

DEF  s  t  at  ement 


SYNOPSIS: 
[<1 


ine  number>]  DEF  <funct  ion  name>  (<vari  abl e> 

{/  <variable>>)  =  <expressio 


ir     <variable>>)  =  <expression> 


DESCRIPTION: 


The  DEF  statement  specifies  a  user  defined  function 
which  returns  a  floating  ooint  number.  One  or  more 
arguments  are  passed  to  the  function  and  are  used  in 
evaluating  the  expression.  The  values  may  be  in 
floating  ooint  form.  Recursive  calls  are  not  permit- 
ted. 

The  <expression>  in  the  define  statement  may  reference 
<variables>  otner  than  the  dummy  arguments*  in  whicn 
case  the  current  value  of  the  <variable>  is  used  in 
evaluating  the  <exoresss i on>  . 

The  first  two  a  1 ohanume r i c s  of  the  <funct ion  name> 
should  be  FN,  F  n  >  fN  or  fn.  The  <function  name>  may 
not  exceed  a  total  of  four  characters. 


EXAMPLES: 

10  DEF  FNA(X,Y)  =  X  +  Y  -  A 

DEF  FNC(A,B)  =  A  +  B  -  FNA(A,B)  +  D 
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DEG 


ELEMENT 

DEG  predefined  function 

SYNOPSIS: 

DEG  (  <e*pression>  ) 


DESCRIPTION: 


DEG  function  converts  the  floating  ooint  value   of 
<expression>   into   deorees.    The   <expression> 
u  1  d  evaluate  to  a  floating  point  value  in  radians. 


EXAMPLES: 

DEG  (  3.14159  *  j  ) 
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DIM 
ELEMENT: 

DIM  statement 

SYNOPSIS: 

1)  [  <  1  i  n  e  number>]  DIM  <ioentifier>  (<sub script-  1  i  s  t  >  ) 

{  ,  <  i  dent  i  f  i  er>  (<subscriDt  list>)> 

2)  [<line    number>]     DIM    <identifier>     (<constant>) 

[  ( <subsc  riot  1  i  s t  >  )  ] 
{  ,  < i den t i f i er>  (<constant>) 
[  (<subscr  i  ot  1 i st  > )  J  } 

DESCRIPTION: 

The  dimension  statement  statically  allocates  space  for 
floating  point  or  string  arrays.  String  array  ele- 
ments may  be  of  any  length  uo  to  32767  characters. 
String  array  length  should  be  specified.  Initially* 
all  floating  point  arrays  are  set  to  zero  and  all 
string  arravs  are  null  strings.  in  array  may  be 
dimensioned  explicitly/  no  default  oct ions  are  provid- 
ed except  for  string  arrays  which  default  to  1  element 
if  the  <subscript  list>  is  absent.  Arrays  are  stored 
in  row  major  order.  The  <subscript  list>  mav  consist 
of  integers.  All  subscripts  have  a  lower  bound  of  0 
and  an  uDoer  bouna  of  n,  for    a    total  of  n+1  elements. 

The  type  1  DIM  statement  above  refers  specifically  to 
an  array  of  numeric  elements.  Type  2  refers  to  string 
arrays.  Both  tyoes  of  arrays  may  be  combined  in  one 
DIM  statements  however  all  the  reauired  elements  in 
the  synopsis  may  be  oresent  for  each  tvoe. 

<constant>  may  be  included  for  all  strinq  arrays  and 
may  not  be  oresent  for  floating  point  arrays.  String 
array  elements  point  to  vectors  of  character  strinas 
with  a  maximum  number  of  characters/  or  string  length, 
equal  to  <constant>.  The  <subscript  list>  for  a 
string  array  may  not  have  more  than  one  element. 

EXAMPLES: 

DIM  A(  10,20)  ,  BUO) 
DIM  B$(2) (5) ,C(7) 
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END 


ELEMENT: 

END  statement 

SYNOPSIS: 

[<line  number>]  END 

DESCRIPTION: 

An  END  statement  indicates  the  end  of  the  source  oro* 
gram.  If  any  statments  follow  the  END  statement  they 
are  i  gno red . 

EXAMPLES: 

10  END 
END 

PROGRAMMING  NOTE: 

If  a  STOP  statement  does  not  preceed  an  END  statement 
somewhere  in  the  program,  a  STOP  statement  is  automat- 
ically inserted  before  the  END  statement. 
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<exec  statement> 


ELEMENT: 

<exec  stat  emen t  > 


SYNOPSIS: 


[< 
[< 
[< 
[< 
[< 
[  < 
[< 
(.< 
[< 
[< 
[  < 
[< 
[< 
[< 
[< 
[< 
[< 
[< 
[< 


ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 
ne 


numbe  r> 
numbe  r> 
numbe  r> 
numbe  r  > 
number> 
number> 
numbe  r > 
numbe  r> 
numbe  r> 
numbe  r> 
numbe  r> 
numbe  r > 
numbe  r> 
numbe  r > 
numbe  r> 
numbe  r> 
numbe  r> 
numbe  r> 
numbe  r> 


CALL  s 
CLOSE 
END  st 
EXTERN 
GOSUB 
GOTO  s 
INPUT 
LET  st 
NEXT  s 
ON  sta 
OPEN  s 
PRINT 
PRINT 
RANDOM 
READ  s 
READ  U 
RESTOR 
RETURN 
STOP  s 


tat  emen 
stat  erne 
at  ement 

s  t  a t  em 
stat  eme 
tat  emen 
stat  eme 
at emen  t 
tat  emen 
t  emen  t 
t  a  t  emen 
stat  eme 
U  state 
IZE  sta 
t  at  emen 
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E  state 

s  t  at  em 
tat  emen 


t  <c  r> 
nt  <cr> 

<c  r> 
en t  <c  r> 
nt  <c  r> 
t  <C  r> 
nt  <c  r> 

<c  r> 
t  <cr> 
<C  r> 
t  <c  r> 
nt  <c  r> 
ment  <c> 
t  emen  t  <c  r> 
t  <c  r> 
en  t  <c  r> 
ment  <cr> 
en  t  <c  r> 
t  <cr> 


DESCRIPTION: 


An  <exec  statement>  is  the  only  allowable  executable 
statement  in  an  IF  statement  construct.  <exec  state- 
men  t  s  >  may  apoear  as  <simole  statements>  throughout 
the  Drogram . 


NOTE: 


See  <s t  at  ement  >  . 
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EXP 


ELEMENT: 

EXP  predefined  function 

SYNOPSIS: 

EXP  (  <expression>  ) 

DESCRIPTION: 

The  EXP  function  returns  e  (2,71828....)  raised  to  the 
power  of  the  <exoress i on> .  The  argument  should  evalu- 
ate to  a  floating  ooint  number. 

EXAMPLES: 

EXP(X) 
EXP(L0G(X) ) 
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<exp  ress  i  on> 
ELEMENT: 

<expressi on> 

DESCRIPTION: 

Expressions  consist  of  algebraic  combinations  of  vari- 
ables* constants*  and  operators.  The  hierarchy  of 
operators  is: 

1)  () 

2)  T 

3)  *,    / 

4)  +,     -,     unary  *»  unary  - 

5)  relational  ops  <,     <- ,     >>  >-»     -t     <>r     ""•=#  1  = 

LT,  LE,  GT,  GE,  EQ,  NE 

6)  NOT ( <exD ress i on> ) 

7)  AND 

8)  OR,  XOR 

Relational  operators  result  in  a  0  if  false  and 
nonzero  (1)  if  true.  Strinq  variables  may  be  operated 
on  only  by  relational  ODerators.  Mixed  strinq  and 
numeric  comparisons  are  not  permitted. 

The  three  tyDes  of  expressions  are  strina,  arithmetic 
and  boo  lean. 

EXAMPLES: 

X  +  Y 

(A  <=  B)  OR  (CS  >  D$)  /  (A  -  B  AND  D) 
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EXTERN 


ELEMENT: 

EXTERN  statement 


[<1ine  number>]  EXTERN  [<type>l  <identifier>  [  (<type> 
{  *  <tyoe>  } )] 


DESCRIPTION: 

The  EXTERN  statement  declares  the  type  of  procedure  or 
function  referenced  by  the  <identifier>  in  a  CALL 
statement.  The  <identifier>  is  from  an  externally  de- 
fined library  and  cannot  be  internally  reaefined  by 
the  user.  The  EXTERN  statement  should  p  r  e  c  e  e  d  *  and 
may  appear  at  any  point  prior  to*  the  CALL  statement. 

If  the  first  ootional  <tvpe>  is  mi  ssinq,  then  that 
<type>  defaults  to  integer. 

The  five  varieties  of  <tyoe>  are  integer*  float*  dou- 
ble* char  and  addr.  These  types  may  alternately  be 
declared  as  arrays  bv  preceeding  the  type  by  S.  *  as  in 
&  integer*  &  float*  &  double*  &  char  and  &  adar. 

The  EXTERN  statement  may  declare  an  infinite  numter  of 
arguments  for  the  procedure  or  function. 


EXAMPLES: 

extern  g i n i t t ( i n t eqe r ) 

extern  integer  mo ve C i n t ege r * i n t eger ) 

extern  &  char  Amt(  &  float*  K    char) 

extern  gerase (  ) 

extern  newoag 
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FOR 


ELEMENT: 

FUR  statement 


SYNOPSIS: 


TO 


[<line  number>]  FOR  <index>  =  <expression> 

<exoression>  [STEP  <expression>] 
<s  t  at  etient  1  i  s  t  > 

t<l ine  n  u  m  b  e  r  >  ]  NEXT  [  <  i  n  d  e  x  >  ] 


DESCRIPTION: 


Execution  of  all  statements  between  the  FOR  statement 
and  its  corresponding  NEXT  statement  is  repeated  until 
the  indexing  variable  reaches  the  exit  criteria.  If 
the  step  is  oosi  t  i ve»  the  loop  exit  criteria  is  that 
the  index  exceeds  the  value  of  the  TO  <exp ress i on> . 
If  the  steD  is  negative*  the  index  should  be  less  than 
the  TO  <exoression>  for  the  exit  criteria  to  be  met. 

The  <index>  may  be  an  unsubscrioted  variable  and  is 
initially  set  to  the  value  of  the  first  <exoress i on> . 
If  the  exit  criteria  as  met  on  initial  entry/  0  execu- 
tions of  the  loop  are  performed.  If  the  STEP  clause 
is  omitted/  a  default  value  of  1  is  assumed.  A  step 
of  0  may  be  used  to  loop  indefinitely. 


EXAMPLES: 

FOR  I  =  1  TO  10  STEP  3 

FOR  INDX  =  J*K-L  TO  L0*SIN(X) 

FOR  I  =  1  TO  2    STEP  0 


73 


<  f  unc t  i on  name> 


ELEMENT: 

<  f unc  t  i  on  name> 

SYNOPSIS: 

FN<identifier>  or  fn<identifier> 

DESCRIPTION: 

Any  <identifier>  start  inq  with  f  n ,  f  N ,  FN,  or  Fn 
refers  to  a  user-defined  function.  The  <funct ion 
name>  should  appear  in  a  DEF  statement  prior  to  ao- 
Dearina  in  an  <exp ress i on>  . 

There  may  not  be  any  soaces  between  the  FN  or  fn  and 
the  <  i  dent  i  f  i  er> . 

EXAMPLES: 

FNA(x)  =  xT2 

f  n  A  r  (  i  ,  j  )  =  i  *  j 
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ELEMENT: 

GOSUB  statement 


GOSUB 


SYNOPSIS: 


[  <  1  i  n  e  number>] 
C< 1 ine  numbe  r> J 


GOSUB  <1  i  ne  nUmber> 
GO  SUB  <1 ine  number> 


DESCRIPTION: 


The  address  of   the   next   sequential 
saved    on    the    run-time    stack, 
transferred  to  the  subroutine  labeled 
number>  followinq  the  GOSUB  op  GO  SUB 


instruction   is 
and   control   is 

with   the   <1 ine 


EXAMPLES: 

10  GOSUB    300 
GO  SUB   100 
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GOTO 


ELEMENT: 

GOTO  statement 

SYNOPSIS: 

l<1  jne  number>)  GOTO  <line  nuaiber> 
[<line  number>]  GO  TO  <line  number> 


DESCRIPTION: 


Execution  continues  at  the  statement  labeled  with 
<line  number>  following  the  GOTO  or  GO  TO. 


the 


EXAMPLES: 
100 


GOTO  50 
GO  TO  10 
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<  i  dent  i  f i  er> 
ELEMENT: 

<  i  dent  i  f  i  e  r> 

SYNOPSIS: 

<letter>  {  <letter>  or  <nuwber>  >  [  $  ] 

DESCRIPTION: 

An  identifier  begins  with  an  alphabetic  character  fol- 
lowed by  three  alphanumeric  characters.  If  the  second 
or  third  character  is  a  dollar  sign  the  associated 
variable  is  of  tyoe  strina*  otherwise  it  is  of  tyoe 
floating  point. 

EXAMPLES: 
A 

B$ 
Xy6 

PROGRAMMING  NOTE: 

All  non-reserved  identifiers  may  consist  of  any  fix- 
ture of  upper  and  lower  case  letters  and  numerics. 
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IF 

ELEMENT: 

IF  stat  emen  t 

SYNOPSIS: 

[<line  number>]  IF  <expression>  GO  TO  <line  nurrber> 

[  <  1  i  n  e  n  u  m  b  e  r  >  ]  IF  <expression>  THEN  <exec  statement> 

[<line  n  u  m  b  e  r  >  1  IF  <exoression>  THEN  <  e  x  e  c  st3tement> 
ELSE  <exec  statement> 

or 
ELSE  IF  statement 

DESCRIPTION: 

If  the  value  of  the  <exoression>  is  not  0/  the  follow- 
ing occurs: 

1)  the  GOTO  causes  an  unconditional  branch  to 
< 1  i  ne  numbe  r>  ,     or 

2.)  the  <exec  statement>  following  the  THEN  is 
executed. 

If  the  value  of  the  <expression>  is  0,  the  following 
occurs : 

1)  either  the  <exec  statement>  or  the  IF  state- 
ment following  the  ELSE  is  executed,  or 

2)  the  next  sequential  statement  in  the  program 
is  executed. 

EXAMPLES: 

IF  A$  <  B$  THEN  X  =  r*Z 

IF  (A$<B$)  AND  (C  OR  D)  GO  TO  300 

IF  J  AND  K  THEN  GOTO  11  ELSE  GOTO  12 

PROGRAMMING  NOTE: 


The  line  continuation  symbol  (<0)  may  be  usea  following 
the  THEN  or  ELSE  symbols  to  produce  more  readable 
code : 

if  x  =  y  then  a) 

z  =  z  +  1  3 
else  a) 

print  x  -  y 


INPUT 


ELEMENT: 

INPUT  statement 


SYNOPSIS: 


s  t  r  i 


[<1ine  number>]  INPUT  [<promDt 

<variable>  {f     <variable>  > 

{,     <promot  string>;  <variable> 

{ t     <variab1e>}} 


DESCRIPTION: 


The  <  p  r  o  m  o  t  s  t  r  i  n  g  >  ,  if  present,  is  printed  on  the 
console.  A  promot  strinq  may  be  followed  by  a  semi- 
colon. A  line  of  inout  data  is  read  from  the  console 
and  assigned  to  the  variables  as  they  appear  in  the 
variable  list.  Oata  items  preceedea  by  orompt  strinqs 
should  be  separatee  by  a  carriaae  return.  Strinas  may 
not  be  enclosed  in  quotation  marks. 


EXAMPLES: 

10  INPUT  A,B 

INPUT  "SIZE  OF  ARRAY?";  N,  "DEFAULT  VALUE?";  X 
INPUT  "VALUES?";  A(I),B(I),C(A(in 
i  npu  t  a? /  a ( i  ) 
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INT 


ELEMENT: 

INT  oredef ined  function 

SYNOPSIS: 

INT  (  <expression>  ) 

DESCRIPTION: 

The  INT  function  returns  the  largest  integer  less  than 
or  eaual  to  the  value  of  the  <e xpress i on> .  The  argu- 
ment should  evaluate  to  a  floating  point  number. 

EXAMPLES: 

INT  (AMNT  /  100) 
INT(3  *  X  *  SIN(Y)  ) 
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LEN 


ELEMENT: 

LEN  predefined  function 

SYNOPSIS: 

LEN  (  <e*pression>  ) 

DESCRIPTION: 

The  LEN  function  returns  the  actual  length  of  the 
string  <expression>  passed  as  an  argument.  Zero  is 
returned  if  the  argument  is  the  null  string. 


EXAMPLES: 

LEN(A$) 
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LET 


ELEMENT: 

LET  st  at  emen  t 

SYNOPSIS: 

[<1ine  nunnber>]   (LET)  <variable>  =  <expression> 


DESCRIPTION: 


The  <expression>  is   evaluated   and 
<variable>   appearing   on   the   left 
siqn.   The  type  of  the  <exo ress i on> , 


assigned   to   the 

side  of  the  eaua 1 

either   floating 


po  i  nt   or 
able>. 


string/  should  match  the  tyoe  of  the  <vari- 


EXAMPLES: 
100 
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LET  A  =  B  +  C 

X(3,A)  =  7.32  *  Y  t  X(2,33 

W  =  (A<B)   OR  (C$>05) 
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< 1  i  ne  numbe r> 


ELEMENT: 

<l  ine  n  u  m  b  e  r  > 

SYNOPSIS: 

<di qi  t >  {  <di  gi  t >  > 

DESCRIPTION: 

<1ine  numbers>  are  oot  ional  on  all  statements  and  are 
ignored  by  the  compiler  exceot  when  they  aopear  in  a 
GOTO/  GOSUB,  or  ON  statement.  In  these  cases/  the 
<line  numoer>  should  aocear  as  the  label  of  one  and 
only  one  <statement>  in  the  Droqram. 

<)ine  numbers>  should  be  less  than  32767. 

EXAMPLES: 
100 
4635 
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LOG 


ELEMENT: 

LOG  Dredefined  function 

SYNOPSIS: 

LOG  (  <expression>  ) 

DESCRIPTION: 

The  log  function  returns  the  natural  logari  thn  of  the 
value  of  the  <express i on> .  The  argument  should  evalu- 
ate to  a  non-zero  floating  Doint  number. 

A  negative  value  will  produce  undesirable  results. 

EXAMPLES: 

LOG  (X) 

LOG( (A  ♦  B)/D) 

LOG10  =  L0G(X)/L0G( 10) 
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MOO 


ELEMENT: 

MOD  predefined  function 

SYNOPSIS: 

MOD  (  <exoression>  ,  <expression>  ) 

DESCRIPTION: 

The  MOD   function   evaluates   the  first   <expression> 

modulo   the   second   <exoression>  and  returns  a  float 

point  value.   Both  <exoress i ons>  should   evaluate   to 
floating  point  numbers. 


EXAMPLES: 

MOD  (x,y) 


MOD  (SQRT  (LOG  (X)),  X  +  Y ) 


NEXT 


ELEMENT: 

NEXT  statement 

SYNOPSIS: 

Kline  number>]  NEXT  I  < i den t i  f i e r > 1 

DESCRIPTION: 

A  NEXT  statement  denotes  the  end  of  the  closest  un- 
matched FOR  statement.  T  f  the  ont  ional  <  identified 
is  present  it  should  matcn  the  index  variable  of  the 
FOR  statement  being  terminated.  The  <line  n  u  m  b  e  r  >  of 
a  NEXT  statement  may  aooear  in  an  ON  or  GOTO  state- 
ment* in  which  case  execution  of  the  FOR  1 ood  contin- 
ues with  the  loop  variables  assuming  their  current 
values. 

while  it  is  oossible  to  branch  into  a  loop/  it  is  un- 
desirable since  the  1 ood  will  not  be  properly  execut- 
ed. Those  statements  occurring  at  and  after  the  ad- 
dressed statement  will  be  executed*  and  the  NEXT 
statement  will  be  ignored. 

EXAMPLES: 

10  NEXT 
NEXT  I 
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ON 


ELEMENT: 

ON  stat  ement 

SYNOPSIS: 


(1)  [  <  1  i  n  e  number>]  ON  <exoression>  GOTO 

<line  number>  {  /  <) ine  number>} 

(2)  [<line  n  u  m  b  e  r  >  J  ON  <expression>  GO  70 

<line  number>  {/  <1  i  ne  nunnber>> 

(3)  [<1ine  number>l  ON  <expression>  GOSUB 

<line  numoer>  {f  <line  number>> 

( 4  )  [<ljne  n  u  m  b  e  r  >  1  ON  <exoression>  GO  SUb 

<!  i  ne  number>  {/  <1  i  ne  number>> 

(5)  [<line  n  u  m  b  e  r  >  1  ON  <exoression>  THEM 

<1 ine  number>  {/  <1 ine  nunber>> 


DESCRIPTION: 


The  <expression>»  truncated  to  the  nearest  integer 
value/  is  used  to  select  the  <line  nu^ber>  at  which 
execution  will  continue.  If  the  <exp ress i on>  evalu- 
ates to  1  the  first  <line  number>  is  selected  and  so 
forth.  In  the  case  of  an  ON  ...  GOSUB  statement  the 
address  of  the  next  instruction  becomes  the  return  ad- 
dress. ON  ...  THEN  produces  the  same  results  as  ON 
...  GO  TO 

If  the  <expression>  after  truncating  is  less  than  one 
or  greater  than  the  number  of  <line  numbers>  in  the 
list/  the  program  continues  with  the  next  executable 
stat  ement . 


EXAMPLES: 

10  ON  I  GOTO  10/  20,  30,  U0 

ON  J*K-M  GO  SUB  10/  1 /  1 ,  10 
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OPEN 


ELEMENT: 

OPEN  statement 


SYNOPSIS: 


[<1 i  ne 

name> 


number>)   OPEN   C  <  f  i  1  e   number>/<mode>)   <file 


DESCRIPTION: 


The  OPEN  statement  opens  the  <  f  i  1 e  number>  for  random 
access  (<mode>  0),  reading  (<mode>  1)/  writing  (<mode> 
2) t  appending  (<mode>  3).  <file  name>  is  a  strinq  of 
ASCII  characters  which  represents  the  file  specifiea 
by  <  f  i  1  e  number>.  A  file  is  created  by  the  first  OPEN 
statement  for  <file  naTie>  and  <file  number>  with  the 
write  <mode>  specified.  Attempts  to  open  a  non- 
existant  file  for  reading  will  cause  a  fatal  error. 

Although  the  programmer  may  have  uncountabl y  many 
files/  limited  only  by  the  number  of  <file  names> 
available?  a  maximum  of  15  files  may  be  open  at  any 
one  time.  <file  numbers>  are  restricted  to  the  se- 
quence 0-1^  inclusively.  No  two  <file  numbers>  for 
open  files  mav  be  the  same/  but  snould  be  unique  tor 
each  open  file. 


The  <file  number>  will  be  usea   for 
closing   of   files.    It  is  the  sole 
between  the  above  statements. 


input/outout   and 
uniform  reference 


EXAMPLES: 

10   ooen  (1/1)  "datal" 
ooen  (5/0)  "field" 
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PAGE 


ELEMENT: 

PAGE  predefined  function 

SYNOPSIS: 

PRINT  PAGE 


DESCRIPTION: 

The  PAGE 


function  causes  a  new  page  command  to  be  is- 
sued. The  page  orint  function  should  not  be  used  on 
the  console*  since  it  will  cause  undesirable  effects 
on  the  CRT  screen. 


EXAMPLES: 


print  page 


PROGRAMMING  NOTE: 


PRINT  PAGE  is  the  same  as  PRINT  CHR$(10).  It  should 
be  used  in  the  same  manner  as  TAB  or  C  C  L  *  w  n  i  c  h  is 
only  in  a  PRINT  statement. 
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PRINT 


ELEMENT: 

PRINT  statement 


SYNOPSIS: 

[<1  i  ne  nyrber>]  PRINT 


<expression>  <delim> 

{     <exDression>  <delim> 


DESCRIPTION: 


A  PRINT  statement  senas  the  value  of  the  expressions 
in  the  expression  list  to  the  console.  A  space  is  ao- 
pended  to  all  numeric  values  and  if  the  numeric  item 
exceeds  the  right  marqin  then  the  print  buffer  is 
dumped  before  the  item  is  printea.  The  <  a  e 1  i  m  > 
between  the  <express i ons>  may  be  either  a  comma  or  a 
sem  i  co 1  on . 

If  the  <de1im>  is  a  comma,  the  output  of  elements  is 
seauential  on  an  output  line.  If  the  semicolon  is 
used/  the  print  buffer  is  dumped  upon  encountering  the 
semicolon^  ana  the  next  line  is  begun.  If/  however, 
the  semi-colon  occurs  at  the  end  of  the  list  of  ele- 
ments to  be  printed/  no  newline  is  issued/  and  subse- 
quent Drinting  will  begin  at  the  next  position  on  the 
line. 


EXAMPLES: 


PRINT  A,  8/  "THE  ANSwER  IS";  x 
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PRIM 


ELEMENT: 

PRINT  U    statement 

SYNOPSIS: 

i<line  number>l  PRINT  U    <  f  i  1  e  n  u  m  b  e  r  >  ; 
<expression>  it     <exoress i on> } 

DESCRIPTION: 

PRINT  U  causes  the  output  for*  a  program  to  be  directed 
to  the  indicated  file  number.  Before  a  transaction 
may  take  place/  a  file  should  be  oDened  using  the  OPEN 
command  with  mode  2  or  3.  The  file  is  an  external 
file  in  the  user's  directory.  This  allows  the  user  to 
store  program  results  externally*  and  to  eventually 
output  the  results  to  an  external  device*  such  as  t"e 
line  printer. 


EXAMPLES: 

PRINT  U    2 
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RAD 


ELEMENT: 

RAO  oredef ined  function 

SYNOPSIS: 

RAD  (  <expression>  ) 

DESCRIPTION: 

The  RAD  function  converts  the  value  of  the  <expres- 
sion>  into  a  radian  value.  The  <exoression>  snould 
evaluate  to  a  floating  point  number. 


EXAMPLES: 

RAD  (160  *  i) 
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RANDOMIZE 
ELEMENT: 

RANDOMIZE  statement 

SYNOPSIS: 

[  < 1  i  n  e  number)]  RANDOMIZE  [(<numeric  expression))] 

DESCRIPTION: 

A  RANDOMIZE  statement  seeds  the  random  number  genera- 
tor with  13  01*  if  no  <numeric  expression)  argument  is 
supplied*  and  <numeric  expression)  modulo  2**15  -  1  if 
spec  i  f  i  ed . 

EXAMPLES: 

10  RANDOMIZE 

RANDOMIZE  (1013) 
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READ 


ELEMENT: 

READ  statement 


SYNOPSIS: 


[<line  number>]  READ 

<variable>  ii     <variable>  ) 


DESCRIPTION: 


A  READ  statement  assigns  values  to  variables  in  the 
variable  list  from  DATA  statements.  Fields  may  be 
floatinq  Doint  or  string  constants  and  are  oelimited 
by  a  comma . 

DATA  statements  are  orocessed  sequentially  as  they  ao- 
pear  in  the  Droqram.  An  att^mot  to  read  past  the  end 
of  the  last  data  statement  produces  an  error/  and  au- 
tomatically generates  an  aocrcoriate  RESTORE.  An  at- 
tempt to  read  non-ex istant  data  will  oroduce  a  termi- 
nal error. 


EXAMPLES: 
100 


READ  A,8,C$ 
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READ 


ELEMENT: 

READ  9    statement 

SYNOPSIS: 

[<line  number>]  READ  U    <file  number> 
<variable>  {/  <variable>) 


DESCRIPTION: 


A  READ  n  statement  assigns  values  to  variables  in  the 
variable  list.  Values  are  read  from  seauential 
records  from  the  external  file  soecified  bv  the  <file 
number>.   Fields  may  be  floating  ooint  or  strinas. 


EXAMPLES: 

200     READ  n     l;  PAYR,  PAYO,  HRSR,  HRSO 
READ  U    2;  x,y,z$ 
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REM 


ELEMENT: 

REM  statement 

SYNOPSIS: 

[<line  n  u  m  b  e  r  >  J  REM  [<remark>] 
Kline  number>]  REMARK  [<remark>] 

DESCRIPTION: 

A  REM  statement  is  ignored  by  trie  compiler  ana  compi- 
lation continues  with  the  statement  following  the  next 
carriaae  return.  The  REM  statement  may  be  used  to  do- 
cument a  program.  RE^  statements  do  not  affect  the 
size  of  program  that  may  be  compiled  or  executed. 

A  REM  statement  may  be  the  object  of  either  a  GOTO  or 
GOSUB  statement  . 

EXAMPLES: 

10  REM  THIS  IS  A  REMARK 

20  REMARK  This  is  another  remark. 
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reserved    word    list 


LEMENT: 

reserved    word    list 

YNOPSIS: 

<1 et  ter>  {  <letter>  }  [  $  ] 

ESCRIPTION: 

The  following  words  are  reserved  by  extended  Basic  and 
may  not  be  used  as  < i den t i f i e rs > : 


ABS 

AND 

ASC 

A  T  A  N 

CALL 

CHR$ 

CLOSE 

COL 

ens 

COSH 

DATA 

DEF 

DEG 

DIM 

ELSE 

END 

EO 

EXP 

FILE 

FOR 

GE 

GO 

GOSUB 

GOTO 

GT 

IF 

INPUT 

INT 

LE 

LEN 

LET 

LOG 

LT 

MOD 

NE 

NEXT 

NOT 

ON 

OPEN 

OR 

PAGE 

PRINT 

RAD 

RANDOMIZE 

READ 

REM 

RESTORE 

RETURN 

RND 

SIN 

SINH 

SORT 

STEP 

STOP 

TAB 

TAN 

THEN 

TO 

VAL 

Reserved  words  may  be  oreceeded  and  followed  bv  either 
a  special  character  or  a  space.  Soaces  may  not  be  em- 
bedded within  reserved  words.  Reserved  word  identif- 
iers should  consist  of  upper  or  lowercase  letters  ex- 
clusively. 
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RfJD 


ELEMENT: 

RND  predefined  function 

SYNOPSIS: 

RND 

DESCRIPTION: 

The  RND  function   generates   a   uniformly   distributed 
random  number  between  0  and  1. 


EXAMPLE: 

RND 


100 


< s  i  mD  1  e  statement) 


ELEMENT: 

<simole  statement) 


SYNOPSIS: 

(<1 
[<1 
[<1 

[<1 
[<1 
[<1 
[<1 


ne  numbe r > 

ne  n u m b e r > 

ne  number> 

ne  number) 

ne  number) 

ne  number) 

ne  number) 


DATA  statement  <cr> 
DEF  statement  <cr> 
DIM  stat  ement  <c  r> 
<exec  statement)  <cr> 
FOR  statement  <cr> 
IF  stat  ement  <c  r> 
R  E  M  statement  <cr> 


DESCRIPTION: 


All  <simo1e  statements)  are  elements  of  a  <staten-ent 
1  i  s  t  >  and  are  executaole.  All  <  s  i  m  p  1  e  statements)  ena 
with  a  carriage  return  <cr>. 
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SIN 


ELEMENT: 

SIN  oredefined  function 

SYNOPSIS: 

SIN  (  <expression>  ) 

DESCRIPTION: 

SIN  is  a  predefined  function  which  returns  the  sine  of 
the  <exoression>.  The  argument  should  evaluate  to  a 
floating  point  number  in  radians. 


EXAMPLES: 


X  =  SIN(Y) 
SIN(A  -  B/C) 
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SINH 


ELEMENT: 

SINH  predefined  function 

SYNOPSIS: 

SINH  (  <exoression>  ) 

DESCRIPTION: 

SINH  is  a  function  which  returns  the  hyperbolic  sine 
of  the  <express i on> .  The  argument  should  evaluate  to 
a  floating  point  number. 

EXAMPLES: 

SINH(Y) 
SINHCB  *  C) 
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special  characters 


ELEMENT: 

special  characters 

DESCRIPTION: 


The  following  special  characters  are  used  by 
Bas  i  c  : 


e  x  t  ended 


CR 

i 

3 


circumflex 

open  parenthesis 

closed  oarenthesis 

open  sauare  bracket 

closed  square  bracket 

doub 1 e  quo t  e 

asteri s  k 

plus 

minus 

slant 

semicolon 

1 ess-t  ban 

greater-than 

eaua  1 

C  omma 

carriage  return  (new  line) 

exclamation  point 

line  con t  i  nua t  i  on 

t  i  1  de 

subst  r  i  ng 

space 

numbe  r  s  i  an 

do  1  1  a  r 

amoe r sand 

period 


Anv  special  character  in  the  ASCII  character  set  ex- 
cept >t  which  may  appear  as  \> t  may  appear  in  a 
string.  Special  characters  other  than  those  listed 
above*  if  they  aooear  outside  a  string,  will  qenerate 
an  error. 
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SQRT 


ELEMENT: 

SQRT  predefined  function 

SYMOPSIS: 

SQRT  (  <expression>  ) 

DESCRIPTION: 

SQRT  returns  the  square  root  of  the  absolute  value  of 
the  <exoression>.  The  arqument  shoula  evaluate  to  a 
floating  point  numoer.  Neqative  numbers  will  return 
0. 

EXAMPLES: 

SQRT  (Y) 
SQRTCXT2  +  YT2) 


105 


<statement  1  i  s  t  > 


ELEMENT: 

<statement  1ist> 

SYNOPSIS: 

<simple  statement> 
{<simole  statement)} 

DESCRIPTION: 


A  <statement  1  i  s  t  >  is  a  sequence  of  executable  state- 
ments. All  extended  3asic  statements  are  terminated 
by  a  carriage  return  (<cr>). 
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STOP 


ELEMENT: 

STOP  statement 

SYNOPSIS: 

[<1  i  ne  number>]  STOP 

DESCRIPTION: 

Upon  execution  of  a  <ST0P  statements  orogram  execu- 
tion terminates  and  all  ooen  files  are  closed.  The 
print  buffer  is  emptied  and  control  returns  to  the 
host  system.  Any  number  of  STOP  statements  may  aopear 
i  n  a  p  rog  ram . 

A  STOP  statement  is  appended  to  all  programs  bv  the 
como  i  1 e  r . 

EXAMPLES: 

10  STOP 
STOP 
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<subscriot  1  i  s  t  > 


ELEMENT: 

<subscriot  1  i  s  t  > 

SYNOPSIS: 

<integer>  {/  <inteqer>  } 


DESCRIPTION: 


A  <subscriDt  list>  may  be  used  as  part  of  a  <  D  I  M 
statement>  to  specify  the  numoer  of  dimensions  and  ex- 
tent of  each  dimension  of  the  array  beino.  declarea  on 
as  oart  of  a  <subscrioted  variable>  to  indicate  which 
element  of  an  array  is  being  referenced. 


E 1 emen t  s  of 
i  nt  egers . 


a  subscriDt  list  in  a  DIM  statement  may  be 


EXAMPLES: 

X(  10,20,20) 
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TAB 


ELEMENT: 

TAB  oredef ined  function 

SYNOPSIS: 

TAB  ( <exo ress i on>  ) 

DESCRIPTION: 

TAB  moves  the  text  pointer  to  the  absolute  column  in- 
dicated by  the  evaluated  <exoression*>.  If  the  expres- 
sion evaluates  to  a  value  qreater  than  80,  the  TAB 
value  is  defaulted  to  <exoression>  -  80  and  will  not 
cause  text  to  wrap  around  on  the  same  line  at  the  con- 
sole. 

EXAMPLES: 

TAB  (10) 
TAR  (i  +  j  ) 
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TAN 


ELEMENT: 

TAN  oredef ined  function 

SYNOPSIS: 

TAN  (  <exoression>  ) 


DESCRIPTION: 


TAN  is  a  function  which  returns  the  tangent  of  the  ex- 
pression. The  argument  should  evaluate  to  a  floating 
point  number  in  radians. 

If  the  <expression>  is  a  multiple  of  pi/2  radians,  the 
value  returned  is  the  largest  or  smallest  numoer  in 
the  system,  deoendinq  upon  which  side  of  zero 
proached  by  the  function. 


1  s 


ao- 


EXAMPLES: 

10  TAN(A) 

TAN(X  -  3*C0S(Y) ) 
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VAL 


ELEMENT: 

VAL  predefined  function 

SYNOPSIS: 

VAL  (  <expression>  ) 

OESCRIPI ION: 

The  VAL  function  converts  the  string  number  in  ASCII 
Dassed  as  a  parameter  into  a  floating  point  number. 
The  <expression>  should  evaluate  to  a  string. 

Conversion  continues  until  a  character  is  encountered 
that  is  not  part  of  a  valid  number  or  until  the  end  of 
the  string  is  encountered.  The  maximum  length  for  a 
string  is  22  digits. 

EXAMPLES: 

VAL(AJ) 

VAL(M3.789") 

VALCThis  returns  zero") 
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< var  i  ab 1 e> 


ELEMENT: 

<va  r  i  ab 1 e> 


SYNOPSIS: 


<identifier>  [(  <subscriot  list>  )] 
<strinq  identifier>  (<beqinninq   posi  t  ion> 
1 engt h>) 


<stn'nq 


DESCRIPTION: 


A  <variable>  in  extended  Basic  may  either  reoresent  a 

floating   point   number   or   a  string  deoending  on  t^e 

type  of  the  <identifier>.   All  string  variables  should 

aooear  in  a  DIM  statement  before  beina  used  as  a 
< va r  i  ab 1 e>  . 

String  v  a  r  i  a  o  1  e  s  may  be  broken  down  into  substring  un- 
its by  indicatina  strinq  name/  starting  character  and 
length  of  substring.  The  element  <beginning  position> 
is  an  <expression>  and  refers  to  the  first  character 
position  of  the  substring.  It  should  evaluate  to  a 
number.  The  element  <string  length>  is  an  <exores- 
sion>  and  should  evaluate  to  a  number.  It  is  the  ab- 
solute length  of  the  substring.  String  character 
count  begi  ns  at  1 . 


EXAMPLES: 
X 

Y$(3! 10) 
AB$(8!20) 
ABS1  (x(I) , Y(I) ,S(I-1 ) ) 
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APPENDIX  II  -  OPERATING  IN  UNIX  WITH  EXTENDED  BASIC 


Lbax  is  the  shell  command  call  for  the  extended  Basic 
compiler  in  the  PDP-11/50  UNIX  computer  system  at  the  Naval 
Postgraduate  School.   It  is  of  the  form: 

lbax  [-C1  C-Sl   t-cl   [-ol  [-H   t-t]  t-vl  file  ... 

The  system  call  accents  three  tyoes  of  arguments: 


Flags  defined  below?  an  argument  whose  name 
'.b'  which  is  taken  to  be  a  Basic  source  oroaram 


piled?  arguments  ending  in 


which  are       taken 


ends   with 
and  i  s  com- 
as  object 


files  to  De  passed  to  the  loader. 


The  following  flags  are     interpreted  by  lbax: 

-  C    Include  the  standard   C   library   when   leading   the 

results  of  the  comoilation. 

-  S    Compile  the   named   Basic   program/   and   leave   the 

assembly-language   output   on   a   corresponding  file 
suffixed  '  .  s  '  . 

-  c    Include  the  graphics  Horary   for   the   CONOGRAPHICS 

graphics  device. 

-  r    Include  the  graphics  library  for  the  P  A  M  T  E  K  graphics 

device. 
-  -  o    Compile  the  named  Basic  program/  and  leave   the   ob- 
ject file  on  a  corresponding  file  suffixed  ' . o ' . 

-  t    Include  the   graohics   library   for   the   Tektronics 

graphic  device. 

-  v    Include  the  graohics  library  for  the  Vector   General 

graph  i  cs  device. 

Whenever  a  graohics  library  is  included  for  loading 
with  the  compiled  source  Drogram/  the  standard  C  Horary  is 
appended  to  the  loader  library  list.  Other  arguments  are 
taken  to  be  either  C  compatible  object  programs/  typically 
produced  by  an  earlier  C  compilation/  or  perhaps  libraries 
of  Basic  or  C  compatible  routines.  These  programs/  together 
with  the  results  of  any  specified  compilation/  are  loaded 
(in  the  order  given)  to  produce  an  executable  oroaram  with 
the  name  a. out.  Libraries  with  the  same  file  name  as  the 
source  program/  and  which  end  in  '  .  o  '  /  shoulo  not  be  used 
since  they  will  not  be  retained  uoon  creation  of  file.o  by 
the  executive  program, 

Basic  programs  may  not  be  compiled  for  future  use  as 
libraries  since  every  compliled  Basic  program  includes  a 
"main"  section/  which  drives  the  program.    Thus   additional 
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C  languaqer    compiled   using 


libraries  may  be  created  in  the 

the  -c  option  for  output  as 

the  '  .  o  '  form  as  object  libraries  for  the  Basic  loader  [ 9 J  . 


'  .  o  '  files/  and  then  included  in 


If  the  -o  option  is  exercised/  the  subsequent  file.o 
may  be  invoked  by  LBAX  and  will  return  an  executable  a. out 
file.  The  effect  of  the  -o  option  is  to  produce  the  source 
program  in  object  code/  which  is  fully  loadable.  Caution 
should  be  exercised  to  prevent  usage  of  a  -o  option  output 
as  a  library  file. 

In  addition  to  the  features  supoorted  in  standard 
Basic/  a  number  of  special  features  are  found  in  the  N P S 
version  of  extended  Basic.   These  include: 


cal  1 

chr$ 

c  1  ose 

CO  1 
d  i  m 
extern 


1  en 
mod 
open 


read  file 

va  1 

write  file 


References  an  external lyv  defined  C  1 anguaae 
orocedure  or  function. 

Return  a  character  string  of  length  1  aetermineo 
by  the  ASCII  equivalent  of  an  exoression  arou- 
men  t  . 

Causes  the  externally  referenced  file  to  be 
closed. 

Specifies  column  width  of  subsequently  orinted 
nume  ric  values. 

In  addition  to  numeric  arrays/  permits  creation 
of  a  vector  of  strings. 

Declares  type  and  arguments  of  external  pro- 
cedure or  function  referenced  by  a  call  state- 
ment . 

Returns  the  length  of  a  string  expression. 
Evaluates  an    expression  with  modulo  arithmetic. 
Causes  the   externally   referenced   file   to   be 
ooened   and   indicates   the  mode  for  opening  the 
file. 

Reads  sequentially  from  the  soecified  external 
file. 

Converts  a  string  of  numbers  to  a  floating  point 
numbe  r . 

.'J  rite  sequentially  into  the  specified  external 
file. 


String  manipulation  is  enhanced  by  use  of  substringing 
constructs.  Strings  may  be  referred  to  in  an  Algol-like 
manner  to  oroduce  portions  for  reading/  writing/  or  altera- 
tion. 

Since  the  UNIX  environment  does  not  support  some  of  tne 
features  of  standard  Basic  without  considerable  system  over- 
head (and  in  some  cases/  not  at  all)/  the  NPS  version  of  ex- 
tended Basic  uses  slightly  different/  although  no  less 
specific/  formats  in  some  statement  formations. 
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Importantly,  the  N P S  extended  Basic  is  a  compiler  ver- 
sion, and  is  not  interpretive.  Thus,  the  use  of  line 
numbers  with  every  statement  is  not  mandatory  or  recommend- 
ed. Creation  and  subsequent  editing  of  proqrams  is  effected 
by  use  of  the  UNIX  editor.  Execution  of  the  program  is  ac- 
complished through  the  a. out  file/  as  with  other  UNIX  con- 
pi  lers. 


The  files  which  are    used  by  the  system  while 
the  shell  executive  program  are: 


exec  u t inq 


f i  le.b 
f  i  1  e  •  o 
f  i  1  e  .  s 
a  .out 

/usr/basic/baxcomo 
/usr/basic/basicl ib.a 
/usr/graoh/coni  e.a 
/usr/graph/rmt  ksuo.o 
/usr /graph /mo resub.o 
/us  r/graoh /vg . a 
/usr/1 ib/1 ibt .a 
/l ib/1 ibc.a 
/l  i  b/1 i  ba.a 


i  nput  file 

object  file 

assemb 1 y- 1 anguage  outout 

1 oaded  output 

comp  i 1 e  r 

Basic  library 

Oconograph i c s  library 

RAMTEK  library,  part  I 

RAMTEK  1 ibrary,  part  II 

Vector  General  library 

Tekt ponies  library 

C  library;  see  section  III 

Assembler  library  used  by  some 

routines  in  1 ibc.a  and  basiclib.a 


The  diagnostics  produced  by  Basic  itself  are  intended 
to  be  self  explanatory.  Occasionally  messages  may  be  pro- 
duced by  the  assembler  or  loader.  Of  these  the  most  mysti- 
fying are  from  the  assembler,  in  oarticular  "m",  which  means 
a  multiple-defined  external  symbol  (function  or  data). 
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PROGRAM  LISTING  -  EXTENDED  BASIC  COMPILER 


PARSING  RULES 


%{ 

U    i  nc  1 ude 

#    i  nc  1 ude 

%} 


M./bst  ruc.c" 

"./bfun.c" 


%token  STEP  DATA  DEF  DIM  ELSE  END  FOR  GOSUB  GO  TO  GOTO  IF 
Xtoken  NEXT  ON  PRINT  READ   REM  RESTORE  RETURN  STOP  THEN  TO 
Xtoken   OPEN  CLOSE   SUB  RANDOMIZE  relsoec  0\^       XOR   NOT  AND 
%token  number  numerics-id  array*-id  string*-id  funct  ion*-ia 
%token  numeric^  format  string  st  ri  nq<-bi  f  nume  r  i  c*-b  i  f 
Xtoken  simDle*-format  str+*num«-bif 
%token  EXTERN   TYPE  INPUT  LET  CALL 


%  1 e  f  t  •  +  * 

%  1  e  f  t  '  *  ' 
%1ef t  'T  ' 


%  %   / *  beginninq  of  the  rules  section   */ 
program:    statement*-!  i  sf  end*-s  t  a  t  emen  t 

r 


statement*-!  i  st  :     simpler-statement 

!  statement*-!  i  st  s  i  mo  1  e*-s  t  a  t  emen  t 


end*-st  at  ement  :  s  t  a  t  emen  t  *- 1  abe  1  END 
!   END  » 0 


s  i  mp!  e*-st  at  emen  t  : 


stat  ement  <- 1  abe  1 
stat  ement*- 1  abe  1 
stat  ement*-!  abe  1 
stat  ement «- 1  abe  1 
stat  ement  *- 1  aoe  1 
stat  emen  t  *- 1  abe  1 
f  or*-s  tat  ement 
di  m*-st  at  ement 


e  xec*-s  t  a  t  e 


0 


exec*-state   0 

i  f*-st  at  ement  '  0 
da  t  a*-s  tat  emen  t  '  0 
def  *-s  t  at  ement  '  0 
rem*-s  t  a  t  emen  t  '0 
extern*-statement 


i  f*-st  at  ement  '  0 
dat  a*-s  t  at  ement  '  0 
def  *-statement  '  0 
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rem«-s  tat  e^en  t   0 
ex  t  e  rn«-s  t  at  emen  t  '0 
error  '0 
'  0 


exec*-s  t  a  t  e 


forest  at  emen t 


read«-s 
res  tor 
open«-s 
c  1  ose«- 
input<- 
readf  «- 
pr  i  nt  «- 
wri  t  e<- 
s  t  op«-s 
on«-st  a 
branch 
1  et«-st 
ca  1  1  «-s 


tat  emen t 
e«-st  at  ement 
tat  ement 
stat  ement 
stat  ement 
stat  emen  t 
stat  emen  t 
st  at ement 
tat  ement 
t  ement 
♦■stat  ement 
at  ement 
tat  ement 


s  t  a  t  emen  t  *- 1  abe  1  for*-c1ause  s  t  at  ement  «■  H  st 
next*-clause      =    {  seman  t  (  4  1  /  $2  )  ;  > 
for<-clause  Statement*-!  i  s t  next«-c1ause    = 
(semant (al r$l ) ; } 


s  t  at  emen  t  «•  1  aoe  1  :    number       s 

{  semant ( 19, $1 ) ; 

if  (numbers  ($1]  .use  1=  I) 

numbers?  1  ].  use  =  2 ;  } 


label 


number       = 

{  semant (20,$1);  if  (numbers  (11]. use  =  =  0) 

numbers  (Sll  ,use=l ?  } 


f  or«-c  1  ause  : 


forehead  '0      = 
{  S5=forctrJ   seman t ( 39 , $  1 ); > 
forehead  STEP  numeric^exo  '0 
{  $$=forctr;  semant ( 40, I  1  ); > 


forehead : 

n  e  x  t «-  c  1  a  u  s  e  : 


FOR  for«-init  TO  numeric*-e*D 


=  {  $  $  =  $  2  ; } 


s  t  at  ement  «■ 1  abe  1  NEXT  numeric*-id  '0 

NEXT  numer  i  c <•  i  d  '0 

NEXT   '0 

st  atement*-!  abel  NEXT  '0 


f  o  r  *■  i  n  i  t  : 


numeric<-id 


numeri  c  <-e  xp 


{  $  $  =  $  1 ;  semant(38,$l);> 


d  i  m«-s  t  a  t  emen  t  :  sdim«-head  '0 
!   dim«-head  '0 
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d  i  m  «■  h  e  a  d  ' 


di  m<-sa  rray+-head    number     ')'  = 

<    symt ab 1 e  [  S 11  .  am t     = 
(numbers  ($2)  .numberi  +1 )     * 

symtabl e  [$1]  . 1 ength+  1 ;     } 
J  d  i  m*-head«-a  1  o    number     ')'  = 

{     j=doDept  +  +  ;     dope  [j] =numbers  [12]  .  n  u  m  b  e  r  i  ; 

symtabletSll  .  di  men  +  + ; 
caldope($l,symtable($l]  .dimerif  symtable  (ill  .doDv); 


di  m«-head  : 


di  m«-head«-s  1  o    number')'        =     { "Bi  =  S  1  ; 

symtabl e  t  S  1  ]  .  length=numbersl$2]  .numberi;} 


dim*-sarray<-head: 


sdi  m«-head  '  (  '        = 

{  $$  =  $l;  symtable  [$11 .type  =  3; 

symt ab 1 e  [  ?  1 1  .  a i men= 1 ;  } 


di  m<-head*- 1  p  : 


st  atement*-!  abel  DIM 

DIM 

sd  i  m*-head  '  ,  ' 


dim«-head*-slo:   dim«-head*-lp  s  t  r  i  n  q «-  i  d  '( 


=  <  $  %  =  1 2  ; } 


di  m«-head«-a  1  p  :   d  i  m*-head*- 1  p  numeric«-id  '('       = 

{  $$  =  $2;  symtabl  e  U2]  .di  men  =  0; 
symt ab 1 e  [$21  .  tyoe=l ; 
symt ab 1 e t 12] . doov=dODep t ; } 
!    d  i  m*-head*-a  1  o  number  ','      - 
{    $  $ = $  1 ;  symtableI$U.dimen  +  +  ; 
j=dooept+  +  ;  dope  [j] =numbers  [$21  .numoeri ; > 


dat  a*-s  t  a  t  emen  t  :     data*-head  number     = 

{  dat a  (dat ao t + +  1  =  numbers  [  $2]  .  numbe r f  ;  } 
!  data«-minus  number    =  {  aa  t  a  (da  t  apt  ++  J  = 

-numoers  (52)  .numberf;} 
!  data«-head   string        = 

{  strcooy(stiq,datastor"); 

datastpr  =  +  s  t  i  g 1 ♦ 1 ;   > 

DATA 

data<-head  number  ','     =  (data  [oataDt  +  t)  = 

numbers  t$2]  .numberf;} 

data«-minus  number  ','    =  {  data  (datapt +  +  )  = 

-numbers  [12]   .numberf;  } 

data«-head   string   ','       = 

{strcooyCstiq/datastDr);  datastor=+stigl 1 1  ;  } 


dat  a«-head : 


dat  a*-m  i  nus  : 


data«-head  '  -  ' 


def  <-stat  ement  :  def  *■  1  e  f  t  <-oart  '  = 

{semant (37, Jl  )  ; > 


numeric*-exD 


def «- 1  ef  t«-part  :  DEF  def«-head  nUmeric«-id  ')' 

{  semant  (35, $2);  %$=$2; 
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de  f  «-head 


read<-st  at  ement 


semant  ( 36,  12)  ',     defv  =  0;  > 

function*- id  '('  =  {  $  $  =  $  1  ; 
symtablefSll .  d  i  men  =  0 ; > 
def<-head  numer  i  c«-  i  d  ','  =  {  $$  =  $ 
sym table [$11 .  1  engt  h  =  .<52; 
symtabletHJ .  d  i  men  +  +  ; } 

read«-head  numeric*-ref 
{  secant (33,-1 ) ; > 
read*-head   string«-ref        = 
{  semant (54,-1  )  ;  > 


l  ; 


read<-head 


READ 

read«-head  numeri  c<-ref 
{  semant (33,-1);  > 
read«-head   string«-ref 
{  semant (54,-1  )  ;  } 


restorer-statement 


RESTORE      = 
{  semant (32,-1) 
RANDOMIZE    = 
{  semant (55, -1  ) 
RANDOMIZE    '  (  ' 
{  semant (55, 13) 


) 

nume  r  i  c <-e x o 
> 


open*-s  t  at  emen  t 


ooen«-head  number  '  )  ' 
{  semant (51 , $2)  ;  > 


string 


open«-head 


OPEN  '  ('  numoer  ','      = 

{  j=nuifbers  (S3)  .numberi  ?  f as  [  j 1 

semant  (50,  $3)  ,*  > 


=  1  ; 


c  1  ose<-st  at  emen  t 


CLOSE  ' ( '  number  ' ) ' 

{  j=numbers [S3] .numberi ; 

i  f (fds  [j]  ==  0)  f ds  [  j)  = 

semant(52,$3);> 


2; 


i  nput  «-s  t  a  t  emen  t 


input«-head  numeric*-ref 
{  semant (48, -1 ) ;  > 
inout«-head  string«-ref 
{  semant  (49,-1  )  ,*  } 


i  nout  «-heaa 

• 
• 


INPUT 
input«-head       strina«-exp        ';* 
{       semant (43, -1  )  ; 
stigl=0,*     stigtstiql+  +  ]=*     ',* 
stig(stigl)='0';     semant(14,j); 
semant ( 43, -1  )  ;  } 
inout*-head    numeric*-ref     ',' 
<     semant (48,-1  )  ;       } 
inout*-head    strinq<ref     ',' 
{     semant (49,-1 ) ;        } 


1  IP 


readfs-statement  : 


readfs-head    nu^eri  c<-ref       = 
{     semant (69, -1 ) ;     semant ( 7 1 ,- 1 ) ;     > 
readfs-head    strinq«-ref  = 

{    semant (70,-1 ) ;     secant ( 7 1 ,- 1 ) ;     } 


readf  «-head 


reads- f  i  1  e 
readfs-head    numerics-ref     ', 
semant  (6<>,-l  )  ;        } 

readf*-head    strinqs-ref 
{    semant (70,-1) }       ) 


reads- f  i  1  e  : 


READ  '#'    number  ','   numerics-e: 

{  j=numbers  C$3]  .numberi  ; 

i  f ( fds  [  j ]  ==  0)  fds  [j]  =  2; 

semant (68, $3) ;  } 

READ'S'    number   ';'   = 

{  j=numbers  f  $  3 1  .numberi  ; 

i f (fds  [  j]  ==  0)  fds  ( jl  =  2; 

semant (68, $3) ;  } 


print  s-s  tat  emen  t  : 


PRINT 

{     semant(44,-l);} 

prints-head    numerics-exo 

{     semant     (42,-1);     semant(44, 

orints-head    strinqs-exD 

{     semant (43, -1 ) ;     semant     (44, 

prints-head    f  o  rrna  t  «-e  1  emen  t 

{    semant (44,-1) ;     } 

orints-head  formats-element 

prints-head  numerics-exo   ';' 

{  semant  (42,-1 ) ;  > 

orints-head    string<-exp        ';' 

<     semant (43,-1  ) ;     > 


- 1 ) ; ) 

- 1 ) ;  > 


or  i  nts-head : 


PRINT 
orints-head    numerics-exp 
{    semant     (42, -1 ) ; } 
prints-head    string«-exo     ',' 
(semant (43,-1 ) ; > 
prints-head    formats-element     ',' 
prints-head    numerics-exo     '?' 
{     semant     (42,-1);     semant (44 , -1 ) 
prints-head    string*-exD     ';* 
{    semant (43,-1) ;     semant     (44,-1) 
prints-head    formats-element     ';' 


; > 


writ  es-s  tat  emen  t 


writes-head  numerics-exp   = 

{  semant (72,-1  ) ;  semant ( 74 r -  1 ) ;  > 

writes-head  strinqs-exD    = 

<    semant(73,-l);     semant(74,-i);     } 


w  r  i  t  es-head 

i 
i 


w  r  i  t  e«-  f  i  1  e 
writes-head    numerics-exo 
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{  semant (72,-1);  } 
write*-head  string«-exp  ',' 
{  semant (73,-1);  } 


wr  i  te«-f  i  1  e 


PRINT   '#'     number  '  ,  ' 
{  j =numbe rs  [  S3]  .  number i  ; 

i  f CfdsCj]  ==  0)  fds  (j]  =  2; 

semant ( 75, $3) ;  > 
PRINT  %U  '    number   '  ;  '  = 
{  j =numbers  [  S3]  . number i  ; 
i f (fds  t j]  ==  0)  fds  [j ]  =  2; 
semant (75, S3) ;  } 


numen  c  «-e  x  p 


format <-e  1  emen t  : 


S  i  mo  1  e*"  format         = 
{  semant (6  2,-1 ) ;   } 
f  o  rma  t «- 1  e  f  t  «-oar  t  numeric«-exo  ')' 
(semant (53, SI  ) ;  } 


format*-!  eft  <-pa  r  t  : 


i  f  <-st  at  ement 


i  f> 

{  s 
i  f*- 
{  s 
i  f> 

i  f«- 
{  s 

i  f  «- 
{  s 
i  f«- 
{  s 


numeric«-format  '  (  ' 
{  $  $  =  Si;  } 

clause  exec«-state 

emant (28,-1 ); > 

clause  e1se«-clause 

emant (29,-1 ) ;  > 

clause  else«-clause 

heaa  goto  number      = 

emant  (  30,  $3)  ,*  } 

clause   numbe  r        = 

emant  (  16, -1  )  ,*  seman  t  (  30  ,  $2  )  ;  > 

clause   else«-clause  number 

emant  (  16,-1  )  ,*  semant  (  30  ,  S3  );  } 


exec*-s  t  at  e 
i  f  «-st  at  emen  t 


e  1  se«-c  1  ause  : 


exec*-s  t  ate  ELSE      = 

{  semant ( 31 , -1 ) ; > 

number   ELSE         = 

{  semant(l6,-l);  semant(30,$l)M 


i  f  «-c  1  ause  : 
i  f  «-head : 


i  ffheaa  THEN 


IF 
{  s 
IF 


re  1  «-exo      = 
emant (2  7,-1  ); > 
END   '#'  number 


re  1  «-exp : 


rel+-exp   X0R   rel*-term 
{  semant (56,-1);   } 
rel*-exp    CR   rel<-term 
{  semant (57, -1 ) ;   } 
relate  rm 


r  e  1  <- 1  e  r  m  :   r  e  1  <- 1  e  r  m   AND   re1«-primary 
(   semant (58, -1 ) ;   } 
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re  1  <-p  p  i  ma  ry 


p  e  1 «-  p  p  i  m  a  p  v  : 


numepic*-exp  pel  numericfexp 

{  semant (25, $2) ;  > 
stPing<-exD  pel  string«-exp 
{  semant  (26,  $2)  ,*  } 
•  (  •   pel<-exn   '  )  ' 
NOT   »('   pel<-exp   ')'       = 
{semant  (59,-1);   } 


re  1 


i  — 

•  > 

•  < 

•  < 

•  > 
'  < 


1  >  ' 


re  1  spec 


=  {  $$=0;} 

=  {  $  $  =  a  ; } 
={  $$=8;} 

=  <  $$=12;} 

=  {  $$=16;} 

=  {  $  $  =  2  o ;  > 

=  {  $  $  =  a ;  > 

=  {  $  $  =  a  ;  > 

=  {  $  $  =  $  l ; } 


s  t  op*-s  t  at  ement 


STOP         = 
{  secant (2a, -1 ); > 


penn-s  t  at  emen  t 
on«-s  t  a  t  emen  t  : 


RE^ 

on«-head  1  abe  1 

{  semant (23,-1  );  > 


on«-head : 

i 


on«-beg  i  n 

on+-heaa  1  abe  1  '  ,  ' 

{  semant (22,-1 ) ; } 


on«-beg  i  n  : 


ON  numeric«-exp  on«-case«-sel 

(semant (21,0);} 

ON  numePic<-exp  on<-selectoP 

{semant(21,-l);} 


on«-se  lector: 


THEN 
GOTO 
GO  TO 


on«-case«-se  1 


GOSUB 
GO   SUB 


bpanc  h<-s  t  a  t  emen  t  :   gosub  label 

!    got  o 1  label 
!    RETURN       = 

{  semant ( 18,-1 ); } 
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gosub:   GOSUB       = 

{semant (17,-1);} 
I    GO   SUB     = 

{semant (17,-1);} 


got o 1  :  goto 

goto:   GOTO         = 

{  semant ( 16,-1 );  } 
!   GO  TO        = 

{  semant ( 16,-1  );  } 


I  et«-st  at  ement 


st  r  i  ng«- 1  et 
numeri  c  <- 1  et 


st  ri  ng«-  let: 


LET  string*-ref  '  =  '  string«-exp 
{  secant ( 15,-1  );  } 


s  t  r  i  na«-  re  f 


s  t  r  1  ng*-e  xp 


{  semant  (  15,  -1  )  ,*  } 


st  r  i  ng«-e  xp  : 


s  t  r  i  nq*re  f 
s t  r i  nq       = 
{  semant (  la,  j  )  ;  } 

S  t  r<-num«-b  1  f   '('   numeric<-exp   ')' 
{semant (53, SI  )  ;   } 


numeri  c <- 1  et 


nume  r  i  c«-exp : 

• 


term: 

i 

i 

* 


LET  numeri  cf  ref  '  =  '  numeric«-exc 
{  semant ( 1 3, -1  )  ;  } 
numeric«-ref  '  =  '  numeric«-exp 
{  semant(13,-l);} 

term 

numeric*-exp  '  +  '  term         = 

{  semant (9, -3)  ;  > 

numeric«-exp  '-'  term         = 

{  semant ( 1 0 ,-U) ;  } 

' t '  term         = 

{  semantUl,-!);} 

'  -  '  term         = 

(secant (12,-1);} 


primary 

term  ' * '  Drimarv 
{  semant (7,-1);} 
term  '/*  primary 
{  semant  (8,-2);} 


primary 


prima  ry«-e  I  ement 


primary 


Drimary«-element 


{  s  e  m  a  n  t  (  b  ,  -  1  )  ;  } 


pr  i  ma  ry<-e  1  emen  t  :    numeric<-ref 

!     number       = 

{semant  (3, $1);  numbers  1*11. luse=W  } 
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bi  f 

'  (  '  nume  p  i  c  «-e  xp  '  ) 

func«-ref  = 

{semant(lfSl);} 


nume  r  i  c«-  re  f  : 


numer  i  c<-  i  d 

{     semant ( 1 , $1 ) ; } 

array*- ref 

{    semant (2,$1  ); > 


a  r  pay*-re  f  r 


arravfref<-head    nume  r  i  c<-exo     ')'  = 

{     j  =df  unar  [cipf  unai ]  +  1  ;     semant  (  45  ,  $2  )  ; 

if     (j     !=    symtablefSll.dimen) 
error(symtab1e(Sl]  .symbol  ffnsqt6l  );     } 


array«-ref«-head:  array«-id     '('  = 

{     semant(lfSl); 
$$  =  $l;     dfunar[Hdofunar]:0;     > 
!     a  p  ray<re  f  <-head    numeric*-exo     '/'  = 

<     $S=$l;     dfunap[dofunap]++; 
semant (45, $2)  ;        } 
, 
String^ref  :  st  ring«-id  = 

{semant     (46,51);     } 
!     substring«ref 

!  strinq«-array<ref 

!     sa  ppay«-subs  t  <-re  f 

s  t  p  i  ng«-  re  f  «•  1  p  :  strinq«-id  '('         = 

{  semant (46, SI ) ;   > 
, 
subs  t  p  i  ng«-re  f  :  s  t  r  i  na«-  re  f «- 1  o  subs  t  r  i  nq*-spec 

, 
s  t  p  i  ngfa  p  ray«-  re  f  :   s  t  r  i  nq<-  re  f *■ 1  p  numepic*-exo  ')' 

{  if  (symtabl e tl 1 1  .  t voe  i=  3) 
ePPOP(symtab1e[SlJ  .symbol, msg(8]  ); 
semant (60, -1 )  ;  } 

sa  p  pay«-subs  t  <-re  f  :   sa  p  pay*-subs  t  *■  1  p  subs  t  r  i  ng«-soec 

sa  ppay«-subs  t  *■  1  p  :  s  t  p  i  nq<-ar  ray^re  f     '(' 


subs  t  p  i  ng<-spec  : 


numepic<-exp     'i'     numeric^exp     ')' 


{  semant (61,-1);  > 


bi  f  : 


s  t  p  i  na>b  i  f  «-re  f  strinq<-exp  ')'        = 

{    if  ( df unar  [do f una  i 1+1  1=  sym t ab 1 e  (  $  1  1  .  d i men ) 

{ 

epPOP(symtable[$ll  .  symbol, msqlfa)  ); 
> 

semant (53, $1  )  ;    } 
nume  r  i  c  «-b  i  f  «■  re  f  numepic^exo  ')'      = 

{    if  (d f una p  [do f una  i 1+1  i=  symt ao 1 e  [  $  1 1  . d i men ) 

{ 
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error(symtable($13  .symbol  , msq  (63  ); 
} 

{semant (53, SI) ;  } 

numeric«-bi  f  «-noa  rm 


s  t  r  i  ng«-b  i  f  <re  f  :  string«-bif     '('  = 

{     $5    =    $1;     df unar  [  +  +dpf unar3 =0;        > 
!     s  t  r  i  ng«-b  i  f«-  re  f     string<-ref     ','  = 

{     $$=$l;dfunarfdDfunar]++;> 

numeric«-bif«-ref:    numeric«-bif  '('      = 

{  $S  =  Si;  dfunar[t+dpfunarl=0; 
nume  r  i  c*-b  i  f  «-re  f  :    numeric«-bif  '('      = 

{  5$=$1;  df unar tdpf unar] t + ;   } 


numer  i  c«-b  i  f  «-nparm  :  numericfbi  f  = 

<semant(53,$l);     } 
func<ref<:        func«-ref«-head    numeric«-exp     ')' 

{  if     (df una r  [do f una r--l  + 1     1  = 

symtablelJll  .  d  i  men ) 


error(symtable  151]  .symbol,msg(63  )  1 
semant (34,  $1  )  ;  } 


func«ref<-head:     funct  ion«-id     '  (  '  = 

{     SS=Si;     dfunar[++dofunarl:0;} 

!        f  unc<re  f  *-heaa    numeric*-exo     ',' 
{    df unar  [dpf unar)  +  +  ;     S$  =  S 1 ; > 


ca  1  1  «-st  at  ement 


cal  l«-head   '  )  '         = 
{   semant(66,$l);  } 
call  «-nhead  = 

{   semant (66, $1) ;  > 
call«-head   numeric«-exp   ')'      = 
{  oncnt++;   semant (63,51-oncnt) J   $$=51; 
semant (66, $1);  > 

call«-head   array«-io   ')'  = 

{  oncnt  +  +  ;   semant (63, $l-oncnt ) ;   S S  =  S  1  ; 
semant (66,  $1  )  ;  } 

call*-head       string<-exp       ')'  = 

{    cncnt  +  +  ,*        semant (63, $l-oncnt);        $  S  =  $  1  ; 
seman  t ( 66 , $  1  )  ;     } 

call<-head       '8,'       numeric«-id        ')'  = 

<     oncnt+  +  ;        semant(63,$l-oncnt);        $$  =  $!,* 
semant(66,$l);     > 


call«-head:   cal  l<-nhead   •(•         = 

<   semant(6U,-l);  semant(63,'5  1);  *  $  =  S  1  ;   } 

!   cal  l«-nhead   '  =  '  numeric*-ia   '(*        = 

{   semant  (  1  ,  $3)  ,*  seman  t  (  63  ,  $3  )  ;  $$  =$3;   } 

!    call«-shead   '  =  *  numeric«-id   '('        = 
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semant (63, $3) 
nume  ric«-exD 


{   s  e  m  a  n  t  (  1  ,  $  3  )  ; 
ca11<-head   numeri. 

{  oncnt+  +  »"   seman  t  (  63  t  $  1  -oncn  t  ) 
call«-head   array«-id 

{  oncn t t+ ; 


call  <-head 
{    oncnt + + ; 
call  ♦•head 
{     one  n  t  +  +  '' 


semant ( 63 »  $1 -oncnt ) 
s  t  r  i  nq«-e  xo 


i  i 

r 


semant (  6  3  »  $  1 -oncnt  ) 

'  &  '   numer  i  c«-i  d   '  ,  ' 

semant (63,51-oncnt ) 


$$  =  $3;   } 

s  $  =  $  l ;  } 

ss=si;  } 

$"5  =  51;  ) 

$s=$i;  > 


ca  1  1  «-nhead : 


CALL   numeric*- id 
semant ( 1 , 52) ;    $$=$2;   ) 


call  *-shead : 


CALL   st  ri  ng«-re  f 
{  semant(67/-l);  ) 


ex  t  e  rn<-s  t  at  emen  t  :       extern«-head 


extern«-head: 


EXTERN    TYPE   numeric«-ia   parm«-def      = 
{  symtab1e[$3]  .length=$2*2; 
symtab1e[S3J  .dimen=oncnt;   $J=$2*2; 
symtabl e C$31 . type  =  10;   oncnt=0;   > 
EXTERN      numeric<-id   parm«-def      = 
<  symtabl e  [323 . 1 ength  =  0; 
symt ab 1 e  [$21  . di men  =  oncn t ;   $$  =  0; 
symtable[$21.tyc»e  =  10;    oncnt=0;   > 
EXTERN    '&'   TYPE   nume  r  i  c<- i  ^   parm«-def 
{  svmtabl e  ISa]  .1enath=$3*2+CDISP; 
symtable[5ai  .dimen  =  oncnt;  $3=S3*2+CDISP; 
symtable($4l.tyoe  =  10;   oncnt=0;   } 
extem«-head   *,'   numeric*-id   parm«-def   = 
{  symtabl  e  IS31  .  1  engt  h  =  .?l  ; 

symtableC$31.dimen=oncnt;   $  $  =  $  1  ;   oncnt  =  0; 
symtabl e  [$31  .  type  =  10;   } 


pa  rm«-de  f  : 


■('   ■)' 

parm«-head 
{  oncnt  f + ; 


TYPE   ')*  = 

j  =  i  nsert  ("<-<-")  ; 

symtabletj] . 1 enqth =$2*2; 

symt ao 1 e  ( j 1  . t vpe=  -l;   > 
'& '   TYPE   '  )  ' 
jsinsert  (M «-«-") ; 

symt abl e  [  j )  .lenqth=$3*2+CDISP; 

symt ao 1 e  [  j 1  . t ype=  -1;   > 


pa  rm«-head 
{  oncnt ♦+ J 


pa  rm«-head 


pa  rm«-head 


TYPE 


i  > 
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<  oncnt  +  t;  i  =  insert  ("«-«•") ; 

s  y  m  t  a  b  1  e  ( j  1  .lenqth=$2*2; 
symt ab 1 e  lj J  • t ype  =    -1?       } 
Dar^head       '&'        TYPE 
{    oncntn;     j  =  i  n  s  e  r  t  (  "  *«■"); 
svmtab1etj].length=$3*2+CDISP; 
symtab1e[j].tyDe=    -  1  ;        > 


%% 

^include    "./bscan.c" 
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SEMANTIC  ACTIONS 


seman  t  (  c  a  ,  i  )  int  can? 
{   int  k , kl ; 

switch  (ca ) 
< 

case  1 
c  ase  2 


case 
case 


case  7 


case  8 


case 


orintfCmov  $S%d/  -  (  r4  )  \n  *'  ,  i)  }     return,* 
j=symtablefi]  .type; 
if  (  j  ==0) 

error(symtable(i]  .symbol  , msa  [5J  )  ; 


pr i  nt  f 
pr  i  nt  f 
pri  nt  f 

return 
Drintf 
pri  nt  f 

Drintf 
print* 
pr  i  nt  f 


".alobl   DOPCALW); 
"mov  $SD%d/-(ra)\n")  ; 
"isr  pc,  DOPCALW, i ) ) 


case  10 


"mov  $\l%d,-(rU)\n"  ,  i  )  ', 
"movf  *(ra)+,frl\n"); 
"movf  *(r4)t,f  rOW)  , 
".alobl  Pow\n"); 
"  j  s  r  p  c  ,  p  o  w  \  n  "  )  ; 

j =temocnt ++  %  20; 

print  f ("mov  $T%d, -( r4 ) \n " , j ) ; 

ori nt f ( "movf  f rO , * ( r4) \nM ) ; 

return; 

j  =t  empcn t  +  + 

pr  i  n  t  f 

pr  i  nt  f 

orintf 

print  f 

orintf 

return; 

j  =t  emnc 

pr  i  n  t  f 

orintf 

orintf 

print  f 

orintf 

pr  i  n  t  f 

pr  i  n  t  f 

Drintf 

print  f 

pr  i  nt  f 

p  r  i  n  t  f 

pr  i  nt  f 

return; 

j  =t  empc 

p  r  i  n  t  f 

pr  i  n  t  f 

orintf 

orint f 

orintf 

return; 
j=temocnt*+  %  20; 

pri ntf(  "movf  *(rU)  +  ,frl\n"); 


return; 


%  20; 
"movf  *(r4)+, f rl\n" ) ; 
"movf  *(  r4)  +  , f r0\n") ; 
"mulf  frl,fr0\n"); 
"mov  $T%d,-(r4)\n", j ) ; 
"movf  fr0,*(ra)\n"); 

n  t  + +  %  2  0; 

"movf  *(ra)  +  ,  f rl\n")  ; 
"movf  *  (  r  4  )  •»■ ,  f  r  0  \  n  "  )  ; 
".qlobl  ERR0R\n"); 
"cmPf   $0,frl\n"), 
"cfcc\nbne  2f\n"); 
"jsr   r5,EPR0PAn")  ; 
"<runtime  error  at  tempted") J 
"division  by  zero\\n\\0>H); 
";  .even\n2:\n")  ; 
" d  i  v  f  frl,fr0\nn); 
"mov  $T%d,-(r4)\n",  j  )  ; 
"movf  f r0,*(r4)\nM ); 

n t  f +  %  20; 

"movf  *(ra)+f f rl\nM) ; 

"movf  *(ra)+,fr0\n"); 
"addf  frl,fr0\nM); 
"mov  $TXa,-(p4)\n",  j  )  ', 
"movf  f r0,*(r4)\n" ) ; 
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case  1  1 


case  1 2 : 


case  13: 


case 


case 

case 
case 
case 

case 

case 
case 


case 
case 


case 


case 


la: 
or  i 

15: 

16: 

17: 
18: 

19: 

20: 

21: 


D  r  i  n  t  f  (  " 
p  p  i  n  t  f  (  " 

orintfC 
orintfC 
return; 
j  =  t  emoc 
Drintf 
orint f 
pr i  n  t  f ( 
pr  i  nt  f ( 
return; 
j  =  t  e  m  p  c 
pr  i  n  t  f  ( 
printfC 
p  r  i  n  t  f  (  " 
return; 
orint f( 
O  r  i  n  t  f  C 
return; 
p  r  i  n  t  f  ( 
Drintf ( 
n  t  f  (  "  2 : 
return; 
Drint  f ( 
Drint f ( 
return; 
print f ( 
pr  i  nt  f ( 
pr  i  n t  f ( 
return; 
j  =numhe 
d  r  i  n  t  f  C 
j  =numbe 
pr  i  n  t  f ( 
one  n  t  s 0 
printf ( 
print f( 
p  r  i  n  t  f  ( 
p  r  i  n  t  f  ( 
p  r  i  n  t  f  ( 
i  f  (i  = 

e  1  se 


22: 
21: 


2a: 
25: 


print  f ( 
return; 
oncn  t  +  + 
print f( 
or  i  nt  f ( 
return; 
d  r  i  n  t  f  ( 
return; 
pr  i  n  t  f  ( 


rrovf  *(r«)  +  ,frO\n"); 
subf  frl,fr0\n"); 
mov  $  T  %  d ,  -  (  r  a  )  \  n  "  ,  j  )  ; 
rrovf  frO,*(ra)\n"); 

n  t  +  ♦  %  2  0; 

("movf  *(ra)+,fr0\n"); 

("absf  frOW  ); 

"mov  $T%d,-(ra)\n",  j  )  ', 

"movf  rO, * ( rU)\n"  ) ; 

nt++  %  2  0; 

"movf  *(r4)t,fr0\nnegf  fr0\n"); 

mov  $T%d,-( r4)\n", j ) ; 

movf  r0,*(rii)\n"); 

"movf  * ( rd) +f f r0\n"  )  ; 
"movf  f rO, * ( r4  )  t\n" ) ; 

"mov  SI f ,-(ra)\nbr  2  f  \  n  "  )  ; 
"1:   <%s\\0>\n.even\n", st ig) ; 
mov  $2o;-(r4)\n%  st  igl  )  ; 

".globl  strmV\n"); 
"jsr  pc;Strmv\n"); 

"  j  m  p  "  ) ;  return; 
"jsr  dc / " ) ;  return; 
"rts  DC\n"); 

rs  [  i ]  .  numoe  r  i  ; 
"  \  n  L  %  d  :  \  n  "  ,  j  )  ;  return; 
rsfij.numberi; 
"L%d\n",j);  return; 
f 

"movf  *(r4)+, f r0\n" ) ; 
"movfi  frO,r3W); 
"aec  r3\ncmD  S0,r3\n"); 
"jgt  5f\n"); 
" jmD  6f\n7:  asl  r3\n")  ; 
=  -1  ) 
print  fCjfnp  *8f(r3)\n"); 

{ 

printf ("jsr  pc ,  *8 f ( r 3 ) \n " ) ; 

print  f ("jmp  5f \n") ;    } 
"  \  n  8  :  \  n  "  )  ; 

;  return; 

"\nb:  cmo  $%d/ r3\n"  ,oncnt ) ; 

"bge  7b\n5:\n"); 

"jmo  ENDERXn"); 

"movf  *( r<0  +  »  f r0\n"  )  ; 
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case  2b 


case  27 


case  28 
case  29 
case  30 


case  31 
case  32 


case  33 

case  34 

case  35 

case  36 


ppintf 
print f 
Drintf 
print f 
orintf 
pp  i  n t  f 
return 
ppintf 
ppintf 
d  p  i  n  t  f 
ppintf 
ppintf 
ppintf 
return 


("movf  *(p4)+,f pl\nM); 
("mov  $Xo,r3\n",i ); 
("cmpf  frl,fp0\n"); 
C"cfcc\n" ); 

C.qlobl  C0MPAR\n"); 
("j'sp   DCrCOMPARNn")  ; 

i 

C.qlobl      StPCmp\n"); 
("JSP    DCfStPCmp\n"); 
("mov     S%0, p3W, i ) ; 
("cmp    10, ( r4)+\n") ; 
C.qlobl     CO^PARW); 
Cjsr        pCrCOMPAR\n"  ); 


case  37 : 


case  38: 


case  39: 


pp  i  n 
pet  u 

prin 
prin 
j  =nu 
pp  i  n 
pet  u 
PP  i  n 
pp  i  n 
pp  i  n 
pet  u 
p  P  i  n 
pp  i  n 
pp  i  n 
orin 
pet  u 
symt 
k  =  i  - 

fOP( 

{ 


) 

prin 
pp  i  n 
p  p  i  n 
p  p  i  n 
k  =  i  - 
f  o  p 

s 
pet  u 
pp  i  n 
dp  i  n 
p  p  i  n 
retu 


tf  ( 

pn; 

t  f  ( 
t  f  ( 

mbe 

tf  ( 

pn; 
tf  ( 
t  f  ( 
t  f  ( 
pn; 
t  f  ( 
tf  ( 
t  f  ( 
t  f  ( 
pn  ; 
abl 
sym 
j  =  k 
pp 
pp 
pp 
re 
t  f  ( 
tf  ( 
tf  ( 
tf  ( 
sym 
Cj  = 
ymt 
pn; 

t  f  ( 
t  f  ( 
t  f  ( 

pn  ; 


"tst   (p4)+\nbeq  a f \ n  "  )  ; 

"  \ n  a : \ n  "  ) ;  return; 
"\nQ:\n");  return; 
ps  [  i 1  .  number  i  ; 
"L%d\n\n4:\n"  ,  )  )  ', 

"  jmp  9f \n\nU: \n" ) ;  return; 
"mov  $DATA-S.,DATCNT\n") ; 
"mov   $STRDATA,STPi\FXT\n")  ; 


".qlobl  danrdr\n"); 
"jsr   DCfdanrdP\n");  return; 
"jsr  DC/FN%d\nHr i) ;  return; 
"jmo  FX%d\n\nFN% d:\n\n ",i,i); 

e  t  i 1  .  d  i  men  t  +  ; 
t  ab 1 e  [  i ]  .  o  i men ; 

;  j  <  i ;  j  +  + ) 

intfC'movf  *(r4) +,  f  rO\n")  ; 
i  n  t  f  (  "  m  o  v  $  S  %  d  ,  -  (  r  4  )  \  n  "  ,  j  )  ', 
intfC'movf  fpO,*(r4)+W); 
turn? 

"movf  *(r4)+,  f  rO\nM); 
"mov  $S%d,-(r4)\n", i ) ; 
"movf  f  p  0 ,  *  (  p  a  )  + \ n  "  )  ; 
"Pts  DC\n\nFX%d*.  \n\n"  ,  i  )  ; 
t  ab 1 e  f  i 1  .  di  men ; 

k ;  j  <  i  ;  j  +  + ) 

abl  e  f  ]  ]  .symbol  [0]  =•  -« '  ; 

"movf  *(p4)  t, f p0\n"  )  ; 
"mov  $S%dr-(r4)W, i ) ; 
"movf  f p0,  *  (  ra)  +\n"  )  ; 


j  =  f  o  p  c  t  p  +  + ; 

DPintfC'movf  *(ra)  +  ,frl\n"); 
print f ("mov  $F I %d, - ( p4 ) \n " , j ) ; 
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case  40 


case  4  1 


case 
case 


42 

42 


printf ( 
orintf ( 
pr  i  nt f ( 
pr  i  n  t  f  ( 
pr  i  nt  f ( 
pr  i  nt  f ( 
kl=1ook 
if  (  k  1 
nu^be rs 
pr  i  nt  f  ( 
pr  i  n t  f ( 
or  i  n t  f ( 
printf ( 
return; 

j  =  f ore  t 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
C 
( 
( 
( 
k 

s 
( 
( 
( 
( 
f 
( 
( 
( 
return; 


"movf  f rl  ,  *(r4)+\nbr  lf\n"); 

"\nF6%d:\n", j ) ; 

Nov  $Sla,  -(  r4)  \n"  ,  i  ) ; 

"mov  $FI%d,-(r4)\n", j ) ; 

"movf  *(r4)  ♦  ,  f pl\n")  ; 

"movf  *(r4)  ,  f  r0\n")  ,* 

n  f  (  1  .  )  ; 

=  =  -1)  {  k  1  =  i nse r t n r ( 1 , 1 . ) ; 

tkl)  .luse=l ;  > 

"addf  N'/.d/ f  r0\n"  )  ; 

"movf  rO,*(ra)+\n",kl); 

"1:   empf  frOtf pl\nH); 

"cfee  \njqt  F5%d\n",j); 


DP 

pr 
pr 
pr 
pr 
pr 
pr 
pr 
or 
pr 
cr 
pr 
pr 
pr 
d  r 
o  r 
pr 


nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 
nt 


kl  =  1o 
if  (k 
numbe 
print 
print 
print 
print 
Dr  i  n  t 
or  i  nt 
print 
print 


case  43 


print 

return 

print 

print 

return 

print 

print 


( 
( 

( 
( 
return; 


r  +  +  ; 

"movf 

"mov 

"movf 

"movf 

"mov 

"movf 

"mov 

"movf 

"br  1 

"mov 

"mov 

"mov 

"movf 

"movf 

"movf 

"addf 

"movf 
nf  (0. 

[kl]  . 

"  \  n  1  : 
"  c  f  c  c 
"empf 

"jgt 

"jmp 
"2:  c 
"cfee 
"\n3: 


*(r4)+, 

$FT%d,-( 

f r2,*(p 

*(p4)+, 

$FM%d, -( 

f rl  ,*(r 

$S%d,-(r 

*(p4)+, 

f\n\nFb% 

%  S  %  d  ,  -  (  r 

$FM%d,-( 

$FI%d,-( 

*(p4)+, 

*( P4) +, 

*(p4)  ,f 

fr2,  f r0 

f pQ,*(p 

)  ; 

)  {  <  1  =  i  n 
1  u  s  e  =  1  ; 
\  n  c  m  p  f  N 
\n jgt  2f 
f r0, f r  1 
F5Xd\n", 
3  f  \  n  \  n  "  ) 
mo  f  f  r 0 , 
\  n  j  1  t  F  5 
\n\n") J 


f r2\n")  ; 
r  4  )  \  n  "  ,  j  )  ; 
4  )  +  \  n  "  )  ; 
f  p  1  \  n  "  )  ; 
r  4 )  \  n  "  ,  j  ) ; 

4)+\n") ; 

4  )  \  n  "  ,  i  )  ; 

f  r  0  \  n  "  )  ; 

d:\n\n"); 

4  )  \  n  "  ,  j  ,  i  )  ; 

r  4  )  \  n  "  )  ; 

r  4 )  \  n  "  ,  j  ,  j  )  ; 

f  r  2  \  n  "  )  ; 

f  r  1  \  n  "  )  ; 

r  0  \  n  "  )  ; 

\  n  " )  ; 

4  )  ♦  \  n  " )  ; 

sertnr(0f0.); 

} 

%  d  /  f  r  2  \  n  "  )  ; 

\n",kl); 

\ncfcc\n"); 

j ); 

r 

f  r  1  \  n  "  )  ; 
%d\n", j ) ; 


(" jmo  F6%d\n\nF5%d:\n\n" , i ,  i ) ; 


".qlonl  numptr\n"); 
"jsr  DC»numDtr\n"); 

".globl  stramoNn"); 
"jsr  p  c / s  t  r  d  m  o \ n " ) ; 
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case  44 


case  45 


case  46 


case  48 


case  49 


case  50 


case  5 1 


d  r  i  n  t  f 

print f 
return 
Drint f 
printf 
return 
print  f 
k=s ym t 
printf 
return 
o  r  i  nt  f 
printf 
printf 
print  f 
return 
print  f 
printf 
return 
printf 

return 


(" .globl  I  indmo\n"  ) ; 
("jsr  PCflindmp\n"); 

("movf  *(r4)+, f r0\n") ,* 
("movfi  f  rO,  -(  r4)\n"  )  ; 

("mov  $S%d,-(r4)\n",  i  )  ', 

ab 1 e  t  i  J  .1 enqt  h  ; 

("mov  $%o,-(r4)\n", k)  ; 

(".globl  nbrrar,atof \nM ) ; 

("jsr  DC»nbrrdr\n"); 

("jsr  pcatofW); 

("movf  f  r0#  *  (  r4)  -f\n"  )  ; 

» 

("  .qlobl  strrr)r\n"); 

("jsr  DCfStrrdr\n"); 

("mov  S%o,-(r4)\n", 
numbers  (i 1  .numberi *2 ) » 


orintfC'mov  $  1  f  ,  -  (  r  4  )  \nD  r  2f\n"); 
printfC'l:   <7.s\\0>\n.even\n",stia); 
printf ("2:  mov  5%o , - ( r 4 ) \n  "  , 

numbers  (  i 1  .numberi  *2 )  ; 
ori nt f (".globl  0PEN\njsr   pc # 0PEN\n" ) ; 
return; 
case  52:  printf  ("mov  S%o / - ( r 4 ) \n  "  , 

numbers  til  .numberi  *2 )  ; 
print f (".globl  ClOSEW); 
print  f ("jsr  pc , CLOSENn  "  )  ; 
return? 
53: 
h(symtableri]  .length) 


case 
sw  i  t  c 
{ 

c 


ase  0 

i  f 


case  1 


:     //    s t d    calling    frO    and     jsr    p c / X 
(  syrit  ab  1  e  I  i  1  .  amt     ==    0) 

{     print  f("  .qlobl        %s\n", 

symtableti]  .symbol  ); 
symtable(i].amt++;  } 

printf ("movf     *(r4)+,fr0\n"  ); 

printf("jsr    pc»Xs\nM» 

symtableti]  .symbol); 

j=temocnt++    %    20; 

printfC'mov     I  T  %  d  ,  -  (  r  4  )  \  n  "  ,  j  )  ; 

print f( "mov f  f r 0 , * ( r4 ) \n H ) ; 

return; 
;      //  ABS 

print f ("movf  *  (  r  4  )  ,  f  r  0\n  "  )  ; 

p  r  i  n  t  f  (  "  a  b  s  f  f  r  0  \  n  "  )  ; 

printf ("movf  f r 0 , * ( r 4  )  \n  "  )  ; 

return; 


case  2 


1  32 


case    3 


case    6 


case    8 : 


i  f  ( 
(    P 


D  r  l 

D  r  i 
j=t 
pr  i 
pr  i 
ret 

i  f  ( 
{    p 


pr  y 

j=t 
pr  i 
pr  i 
ret 
// 
// 
i  f  ( 
{    p 

pr  i 
ret 

i  f  ( 

<    P 


symt ab 1 e T i 1  .  amt     ==    0) 
rintfC.globl       %s,atof\n", 

symt  ab 1 e  [  i )  .symbol  )  ; 
symtaole(i].amt++;        > 
ntfC'jsr       dc,%sW, 

symtable  [  i  )  .symbol  )#* 
ntfC'jsr       DCratof\nM  ); 
emocnt++    %    20; 
ntfC'mov     $TXtj,-(  r4)\n"  ,  j  )  ; 
ntfCmovf     f r0,  *(r4)\n") ; 
urn  ; 

symt ab 1 e  [  H  . amt     ==    0) 
rintfC.globl        %s\n", 

symt  ab 1 e  [  i ] .symbol); 
symt ab 1 e f i J  .  am t +  +  ;  } 

ntfC'jsr       DC/%s\n", 

symtable  [i ]  .symnol  ) ; 
emocnt+t    %    20; 
ntfC'mov     $IXd,-(pa)\n",  j  )  ; 
ntfCmovf     f  rO,  *  (  rd)\n"  )  ; 
urn; 

chr$    unique    because    $    not     valid 
i  n    as 

symt ab 1 e  [  i J.  amt  ==  0) 
rint fC.ql obi    % s \ n " ,  " c h r  "  )  ; 

symt  ab 1 e  t  i ]  .  amt  ++  ;   } 
ntfC'jsr   p  c  ,  c  h  r  \  n  "  )  ; 
urn; 


or  i 

ret 
def au 1 t :   r 
> 
case  54: 

pr  i  n t  f ( 
printf ( 
ret  urn ; 
case  55 : 

i  f  (i  = 
pr  i 
e  1  se 

pr  i 
p  r  i  n  t  f  ( 
pr  i  nt  f ( 
pr  i  n t  f ( 
return; 
case  56 : 

pr  i  n t  f  C 


sym t ab 1 e  I  i 1  . am t  =  =  0) 
rint f  C'.qloDl   %s\n", 

symtable  [i]  .symnol); 
sym t  ab 1 e  [  i )  .  am t  ++  ;  } 
n  t  f  (  "  j  s  r   p  c  ,  %  s  \  n  "  , 

symtable  [  i ]  .symbol  ) ; 
urn; 
eturn; 


".qlobl  datrdrW); 
"jsr   pc f dat rdr\n" ) ; 


=  -1  ) 

ntfC'mov   5  1301  ,  r0\n")  ) 

ntfCmovf   *(py)  +  ,fr0\n"); 
"movfi  fr0,r0\n"); 
".qlobl  s  r  a  n  q  \  n  "  )  ; 
"jsr  pc»srand\n"); 


".olobl  XUP\n"); 
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DrintfCjsr 
return; 


dcXORW)  ; 


case  5  7 


case  58: 


case  59 


case  60 


orint f C  .al obi  ORNnjsr   oc,0R\n"); 
return; 

orint f C  .ql obi  AND\n"  ); 
DrintfCjsr   oc»AND\nM); 

return; 

orintf  (".qlobl  NOTW ); 
print  fCjsr   ocrNOTW  ); 
return; 

Drintf (".qlobl  SDCALNn"); 
DrintfCjsr   dc  ,  SDC  AL\n  "  )  ; 
return; 


case    6 1 


case    62 


print f (".qlobl     SUBSTRW); 
print  fC'jsr       dc  ,  SUBSTRXn  "  )  ; 


return; 


case    63 


case    64 


print f Cmov        lf,-(r4)\nbr       2f\n"),* 
d  r i  n  t  f (  "  1  :        .byte    012,0;"); 
orintf("     .even\n2:\n" ) ; 
print f (" .gl obi     strofo\n"); 
Drintf("jsr       oc / s t rdmo\n " ) ; 
return; 

orintf ("mov  $%ot - ( r4) \n" , 

symtableti]  .length); 
return; 


orintf  ("cl  r 
return; 


-Cr4)\n") ; 


case    66 : 


i  f 


c  ase 


67 


(oncnt     1=    s vmt ab 1 e  [  i )  . di men ) 

error(symtabletil  .svmbol  / msq  [6 ]  ); 
if     (symtabl e  [i 1 -amt    ==    0) 

{     svmtabletil.amt     =  1 J 

orintfC. alobl        «-  %  s  \  n  "  , 

symtableli]  .symbol);) 
Printf("mov       %Xo , - ( rH ) \n" , 

symtableti)  .dimen); 
orint f (".ql obi     CSETW); 
orintfC'j'sr       pc»CSET\n"); 
printf("jsr       DC/«-%s\n", 

symtableti)  .symbol  ); 
orint  f  (".ql  obi     CRETW); 
DrintfCjsr       oc»CR£T\n"); 
return; 

printfCmov        (  rU  )  +  ,  r3\n  "  )  ; 
print  fCmov     ( r 4 )  +  , r2\n  "  )  ; 
Drint*("mov        r?  ,  -  (  r  a  )  \n  "  )  ; 


13a 


case  68 : 


case  b9: 


>> 

ca 1 doo 


ppintfCmov  r3r-(r4)\n") ; 

return; 

printfCmov   S%o»-(r4)\n" , 

numbers  til  . numbe  r  i  *?) J 
print f C .alobl  READFW); 
orintfCjsr  dc  ,  RE  ADF\n  "  )  ; 
return; 

print  f  C.globl  READFN, atof \n" ) ; 
orintfCjsr  pc  ,  RE ADFN\n " ) ; 
print  fC'jsr  pc*atof\nH); 
pri nt f Cmovf  f r 0 , * ( rU ) +\n " )  ; 

return; 

print  f  (".al  obi     READFSW); 
printfC'jsr       oc  ,  RE  ADFS\n  "  )  ; 
return; 

printf  C.globl    READFENn"); 
printfC'jsr       cc  ,  RE  ADFE\n  "  )  ; 
return; 

print  f  C.globl     WRITFNNn"); 
orintfCjsr       pc  i  WR I  TFN\n  "  )  ; 

return; 

Drint  f  C.alobl     WRITFSW); 
orintfCjsr       pc  t  WRITFSW  )  } 
return; 

Drintf  C.alobl     rtRITFE\nw); 
orintfCjsr       pc  /  WRITFE\nH  ) ; 

return; 

ppintfCmov       $%o  ,  -  (  rU  )  W  , 
numbers  f  i 1  .numberi  *2)  ; 
orintf  C.alobl     «RITF\n"); 
orintfCjsr    oc  ,  *9  I  lT\n  "  )  ; 
return; 


e(irjlrk)  i  n  t  i  t  j  1  t k  ;  { 

int  il;  dooe tdooeot J = 1 ; 

symt  ab 1 e  ( i 1  .  am t  =  1  ; 

for  ( i l=dooeot- 1 ;  il  >  k;  il--) 

{    symt ab 1 e  ( i 1  .  amt     =*     (dope f i  1 1  +  1  )  ; 
dooe[ill=*    dooetil  +  li;        ) 
symtabletU.amt    =  *    (dopeCk]+l); 
dope  tk] = j  1  ; 


case    70: 


case    71: 


case    72 : 


case    73 : 


case    74: 


case    75 : 


13S 


STRUCTURES 


define 
de  f  i  ne 
define 
define 
define 
define 
define 
define 


TRUE     1 
FALSE    0 
ERRORFILE   2 
SYMSIZE    20  0 
NUMSIZE    200 
NAMELENGTH  ]U 


SI  ML EN 
COISP 


n    define  MAXFOP 


10 
10 
10 


char  f  i  1  i  n  [  5  1  8 1  ; 

char  *filein   f ilinj 

extern  int  f out  J 

i  n  t   f  i  1  e  o  u  t  ? 

char   f i  lnam  [NAMELENGTH+1]  ; 

/*  this  array  defines  the  function  of  each  character  in 
the  ASCII  character  set  for  use  in  yylex 

-2  s  eof  and  end  token  for  yacc 

-1  s  illegal  characters  to  be  deleted 

0  =  blanks  and  tabs  to  be  discarded 

1  =  newline  --  used  to  uodate  line  counter 

2  =  legal  scecial  cahracters 

3  =  all  letters  and  the  dollar  sign  ' $ ' 
H  -  digits  and  the  decimal  ooint  '.' 

5   =   quote  --  used  to  delimit  strinas  and 

deleted   •"* 
6=3--  continuation 

*/ 


int  chartype  (1281   { 

-2,-1,-1,-1,-1,-1,-1,-1,-1,0,1,-1,-1, 

-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 

-1, -1,-1, -1,-1, -1,0, 2, 5,-1, 3, -1, 

2,-1,2,2,2,2,2,2,4,2,4,4,4,4,4,4,4,4,4,4, 

-1,2,2,2,2,-1,6, 

3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, 

2,-1 ,2,2,-1,-1, 

3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, 

-1,2,-1,2,-1); 


int  yyline   l,errorcnt   0 ;      / /  qlbl  line  cntr'for  yacc 

int  conflag   0,exf1ag  li  //  cont  and  extern  re'f     flag 

int  c?        //  the  global  next  character 

char  stig  (2561,*     / /  the  global  string  collector 

int  stigl;  //  the  length  of  the  string  literal 
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int  d  i  m  v  0  ,  e  o  f  f  1  a  a  0;  int  d  e  f  v  0; 

int  funccnt  0;  //  global  f 1 aos  and  counter 

int  )i  //    general  temp 

int  f ds  t 15)  ;        //  fds  for  READ/flRITE  FILE 


st  rue  t   { 

doub 1 e  numbe  rf ; 

i  n t     numbe r i  ; 

i  nt     use ; 

int     1  use? 

int     dec;     >   numbers  [NU^S  I ZE]  ; 

/*   numbers  is  a  structure  used  to  hold  literal  numbers 

dec   : 


1  use  = 
use   = 


numbe  r  f 
numbe  r  i 


-1  floating  point  declaration 

0  integer  declaration 

1  used  as  numbe  r 

1  used  only  as  label 

2,  used  as  statement  laoel 

=  floating  ooint  values 

=  int  ege  r  value 


*/ 


int  numberpt  0; 
int  dope  [2001  ; 
i  n t  dopeDt ; 


//  index  of  numbers 

//  vector  used  to  hold  dooe  values 

//  next  available  dooe  position 


st  rue  t   { 

Char  symbol  [Sli^LEN]  ; 

i  nt  type ; 

int  d  i  men ; 

int  length; 

int  am t  ; 

i  nt  dopv ; 


>  symtabl e  ISYMSIZE1 ; 


/* 


symtabl e 

i  s 

a  structure  used  as 

symbo 1 

s 

i  den 

tifier  value 

type 

= 

-1 

null  parms  of 

= 

0 

nume  r  i  c  id 

1 

nume  r  i  c  array 

2 

st rina  id 

I 

string  array 

a 

func t  i  en 

5 

numeric  b  i  f 

6 

string  b  i  f 

7 

simple  f o  rma t 

8 

numeric  format 

a  symoo 1  table 


extern  variables 
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9     numeric  string  bif 
10     external  variables 

dimen    =   dimension  of  array 

number  of  Darameters  for  function 
length   =   lenght  of  a  string 
dopev    =   index  of  the  first  element  of 

the  arrays  dooe  vector  in  dooe 
amt      =   use  for  bif's   l=usea   0=unused 

number  of  elements  in  numeric  array 

number  of  bytes  in  a  string  array 

*/ 

int  sympt  SYMSIZE-1?    //  Dointer  into  the  symbol  table 

int  tnum,tsym;  //  temporaries  is  structures 

int  RwBASE?  //  base  of  reserve  words  in  symbol  taole 


int  forcnt  0;  int  temocnt  0,maxtemp  - 1 7 
int  maxfor  • 1 J  int  oncnt  0; 
int  forctr  0? 


/* 


forcnt 
t  empc  n t 

maxfor 


oncn  t 
forctr 


current  depth  of  nested  for  loops 

value  used  to  manage  the  temporary 

pool  used  as  tempcnt%20 

maximum  number  of  for  loops  nested 

to  this  point  in  the  program  -- 

used  to  Determine  numoer  of  for  loop 

variables  needed 

count  of  ON  statement  label 

current  count  of  all  FQR's  used  -- 

used  for  label  def int  ion 


*/ 


int  df unar  I20J  ;  int  dofunar  0; 


int  dataot  0;    //  Dointer 
double  aatatlOO];   //  data 


to  the  next  data  value 

list  to  be  used  as  data  to  READ 


char  *msq  U  { 


"**ERR0R** 
"**ERP0R** 
M**ERR0R** 
"**ERR0R** 
M**ERR0R** 


attempt  to  redefine  a  numeric  id  as  array  " § 
attempt  to  redefine  an  array  id  " , 
attempt  to  redefine  a  strina  ", 
attemDt  to  redefine  function  ", 
attempt  to  redefine  built  in  function  " , 
"**ERR0R**  attempted  use  of  numeric  id  as  array  "/ 
"**ERR0R**  incorrect  number  of  parameters  ", 
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"**ERROP**  illegal  use  of  external  name"/ 

"**ERR0R**  illegal  use  of  string  id  as  string  array"/ 

0 

>; 

extern  char  *bifsU; 
i  n t  b  i  f  t  ype  1 1    { 

5, 5, 5,5,5, 5, 5, 5 , 5, 6 , 6, 9, 5,5, 5, 6, 5, 5, 8, 8, 7 , 5,-1   >  ; 
i  nt  bi  fact  U   { 

0,0,3,0,3,0,0,0,0,3,3,6,0,3,0,2,0,0,8,8,-1,1,-1  >  ; 

/*   variables  for  data  string  collection   */ 

char  dat ast r i ng [400] ; 

char  *datastor  Kaat as t r i ng [01 ; 

U  define  SY^SIZE  200 
U  define  NUMSIZE  200 
n    define   SIMLEM    10 


st  rue  t   numbe r s   { 

doub 1 e  numbe  r  f  i 

i  n t     number  i  ; 

i  nt     use ; 

i  nt     1  use; 

int     dec;     } 
extern  struct  numbers   numbers!] J 

/*   numbers  is  a  structure  used  to  hold  literal  numbers 

dec   =   -1  floating  point  declaration 

0  integer  declaration 

luse  =    1  used  as  number 

use   =    1  used  only  as  label 

2  used  as  statement  label 

numberf   =   floating  point  values 
numberi   =   integer  value 


*/ 


st  rue  t 


symt  able    { 
char  symbol  IS IMLEN] ; 

int        tyoe; 
int        d  i  men ; 
int         -length; 
int        amt  ; 
i  n t        dopv ; 


}  ; 


extern   struct  symtable   symtable  U; 
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/* 


symtable   is  a  structure  used  as  a  svmhol  table 


symbo  1 
t  ype 


i  dent  i  f  i  e  r  value 

-1  null  parms  of  extern  variables 

0  numeric  id 

1  nume  r  i  c  array 

2  string  id 

3  strinq  ar ray 

4  f unc  t  i  on 

5  nume  r  i  c  b  i  f 

6  string  bi  ^ 

7  simple  format 

8  nume  ric  format 

9  numeric  strinq  bif 
10  external  variables 


dimen    =   dimension  of  array 

number  of  Darameters  for  function 
length   =   lenght  of  a  string 
dopev    =   index  of  the  first  element  of 

the  arrays  dope  vector  in  dooe 
amt      =   use  for  bif's   l=used   0  =  unused 

number  of  elements  in  numeric  array 

number  of  bytes  in  a  string  array 


*/ 


/* 

the  following  definitions  are    the  reserve  words  of  BASIC 
reserveworos   =   caoitol  spellings 
1 rese rveworos   =   lower  case  spellings 

note  the  ' «- '  inserted  to  all  texts 
to  allow  "C"  to  process  the  values 
of  its  own  reserve  words. 

*/ 

char  * reser vewo rds  [1  { 
"STEP", 
"GO", 
"IF", 
"ON", 
"TO", 
"DEF", 
"DIM", 
"END", 
"FOR", 
"LET", 
"REM", 

"DATA", 
"ELSE", 
"GOTO", 
"FILE", 
"NEXT", 
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"READ", 

"OPEN", 

"STOP", 

"THEN", 

"GOSUB" , 

"INPUT", 

"PRINT", 

"CLOSE", 

"WRITE", 

"RETURN", 

"RESTORE", 

"SUB", 

"RANDOMIZE", 

"EQ", 

"LT", 

"  G  T  "  , 

"GE", 

"LE", 

"NE", 

"REMARK " , 

"CALL", 

"EXTERN", 

"INTEGER", 

"FLOAT", 

"DOUBLE", 

"CHAR", 

"ADDR", 

"OR", 

"XOR"  , 

"NOT", 

"AND", 

0 

}  ; 

char  *  1  rese rvewords  []  { 
"♦-step", 
"♦-go", 
"  <-  i  f  "  , 
"♦-on", 
" «- 1  o  "  , 
"«-def  ", 
"♦-dim", 
"♦-end", 
"♦-for", 


i  e  t  "  , 
"♦-rem", 
"♦-data", 
"«-el  se", 
"♦-goto", 
"♦-file", 
"♦-next", 
"♦-read", 
"♦■open", 
"«-stoo", 


l  a  l 


"♦-then", 

II  A .  .  L.    t 


"♦-go 

"♦-input  ", 

"♦-print", 

"♦-close", 

"♦-write"/ 

"♦-return", 

"♦-restore" 


"♦-res 

"♦-su 


b", 


"♦-random  i  ze' 

"<-eq' 

"♦-It' 

"♦-gt  ' 

"♦-ge' 

"  ♦- 1  e ' 

"«-ne", 

"♦-remark", 

"♦-call  ", 

"♦-extern"  , 

*H  nt  eger"  $ 

"♦-float", 

"«-doubl  e"  , 

"♦-char", 

"♦-addr", 

"♦-or", 

"♦-xor", 

"♦"not", 

"♦-ana", 

0 

}  ; 


char    *b  i  f  s  tl 


II 

atan", 

11 

e  x  p  "  , 

11 

mod"  , 

■  1 

log", 

ft 

rnd", 

PI 

Sin", 

•1 

cos", 

l< 

sort", 

II 

tan", 

■  1 

len", 

It 

_.  *»  <>  M 

asc     , 

l> 

c  h  r  $  "  , 

II 

cosh", 

II 

i  n  t  "  , 

II 

s  i  n  h  "  , 

II 

v  a  1"  , 

II 

rad", 

II 

deg", 

11 

tab", 

II 

col", 
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"page", 

"abs% 
0 


>; 


1U3 


SCANNER 


/*  the  following  are  the  user  defined  functions  required 
to  provide  scanning   */ 
yy 1  ex (  ) 

{  extern  int  yylval;     //  this  value  is  used  to  return 

//  va 1 ues  t  o  vacc 
doubl e  atof  (  )  ; 

char    idll0],nurnstr[501;     int     i  t  k  t  1  ?     douole    Orb; 
while     (TRUE)  //    qo     forever    or    until     return 

{ 

switch(chartyoetc]  ) 

{ 

/*    eof    and    the    end 

token  for  yacc      --  case  -2. 
illegal  characters  --  case  -1 


clanks 

new  1  i  ne 

1 ega 1  specials 

letters 


--  case 

--  case 

--  case 

--  case 


digits  and  decimal  --  case 
strings  --case 

continuation        --  case 
*/ 

def au 1 t  : 
case  -2:  return  (c);   //  if  we  get  here 

//  we'd  better  be  aone 
case  -1 :  id tO] =c;  id  11] ='\0  '  ; 

error(idf " illegal  character   deleted"); 
c=aetc(filein);  break; 

//  throw  away  illegal  characters 
case   0:  c=get c ( f i 1 ei n ) ;  break; 

//  blanks  thrown  away 


/*   Just  update  the  line  counter  and  return 
new  line  to  vacc   */ 


case   1 


case 


yyl  ine  +  +  ?  i  =  C  J  c=getc(filein); 
if  (eofflaa)  c=0; 
if  (1  conf lag) 

{  exflag=i;  dimv  =  0,*  defv  =  0; 
i  f (te^Dcnt  >  maxtemo) 

maxtemD  =  tempcnt; 
tempcnt=0;  return(i);   I 
conflag=0;  break; 

//  continuation  on  next  line 
2 1     i=c;  c=getc(filein); 

//  return  the  legal  character  as  is 
return  ( i ) ; 


case  3:  i=0;  i  d  [  i  +  +  ]  =  c  ; 
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// 

c=get  c 
/*  coll ec t  the  f i rst  q 
word  is  longer  than  9 

while 


{   id  t 
idli  ]  = 

/  *    UD 

1 =look 
if  (1 

Sw 
{ 

c  a 
ca 
ca 
ca 
ca 
ca 
ca 
ca 


co  1 

(f  i 

le 

and 

((( 

( 

& 

i  +  + 

•\0 

/ 

pe  p 

rs( 

i  — 

i  tC 

se 
se 
se 
se 
se 
se 
se 
se 


1  ec 
lei 
t  te 

id 

C  ha 

cha 

%  i 

1  =c 
i  • 

/  P 
ca 
id) 
-1  ) 
h  ( 


o  reserved 
4   */ 


t  id's  and  reserved  woros 

n); 

rs  in  id  --  note  n 

's  are  limited  to 

ptyDe(c)==3)  :: 

rtyoe  IcJ =  =  4) ) 

<  9) 
;  c=getc(filein);   } 

j  =  i ; 

ad  null  to  end  string 
se  reserve  words   */ 


//  return  reserve  if  valid 


1  ) 


case 
case 
case 
case 

case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 


1  1 
13 
13 
1  4 
15 
1  6 
17 
18 
19 
20 
21 
22 
23 
2a 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3a 
36 


8:  r 
9:  r 
10: 
35: 


eturn  (STEP); 
eturn  (GO); 
eturn  (  IF ) ; 
eturn  (ON); 
eturn  (TO); 
efv=l;  return  (DE 
imv=l;  return  (01 
o  f  f 1 ag  =  0 ;  return 

//  gua  rant  ee  e 
eturn  (FOR); 
eturn  (  L  E  T  )  ; 


F)  ; 
M )  ; 

(END) ; 
of 


wh  i  1 e  (c 
c=ae  t  c  ( 


re 
re 
re 
re 
re 
re 
re 
re 
re 
re 
re 
re 
re 
re 
re 
re 
re 
re 
yy 


urn 
urn 
urn 
urn 
u  rn 
urn 
urn 
urn 
urn 
urn 
urn 
urn 
urn 
urn 
urn 
urn 
urn 
urn 
va  1  = 


y y 1 va 1 = 
y  y  1  v  a  1  = 
y y 1 va 1 = 
y  y  1  v  a  1  = 
y y 1 va 1 = 
one  n  t  =0 


f  He 
(DAT 
(ELS 
(GOT 
(FIL 
(NEX 
(PEA 
(OPE 
(STO 
(THE 
(GOS 
(IMP 
(PRI 
(CLO 
( /•■  R  I 
(RET 
(RES 
(SU 
(RA 
o;  r 
12; 
8;  r 
20; 
16; 
a;  r 
;  ex 


•\n'  ) 

in); 

A) 

E) 

0) 

E) 

T) 

D) 

N) 

P) 

N) 

UB)  ; 
UT) ; 
NT); 
st)  ; 
TE); 

URN)  ; 
TORE) ; 
B)  ; 

NDOMIZ 

eturn 

return 

eturn 

return 

return 

eturn 

f 1 ag=0 


return(REM) ; 


E)  ; 
( re  1  spec  )  ; 
( re  1 soec  )  ; 
(  r  e  1  s  p  e  c  )  ; 
(  r  e  1  s  d  e  c  )  ; 
(  r  e  1  s  o  e  c  )  ; 
( re  1  spec  )  ; 
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retum(CALL); 
case  37:  oncnt=0;  exf1ag=0; 

returnCEXTERN) ; 
case  38 : 
c  ase  39 : 
case  '40: 
case  4 1 : 
case  42: 

yy  1  val  =1 -38;  re  t  u  rn  (  T  YPE  )  ', 
case  43:   return(OR); 
case  44:   ret  urn  (  XOR  )  ,* 
case  45:   retum(NOT)? 
case  46:   return(AND); 
> 

/*   not  a  reserve  word  look  for  an  ID  if  length  ok   */ 

if  (j  >=  5  &&  exflaq)   //  4  char  limit  on  std  ins 
{  errorCid* 

"illeqal  10  name   -  -  numeric  ID  used")? 
id  [4] ='\o ' ;  i=lookup(id);> 
else  i  = 1 ookup ( i  d ) J 

/* 

Any  ID  which  conforms  to  normal  BASIC  ID  definitions  is 
acceptable  -  -  thus  the  following  forms  are     recommenced 


numer  i  c  id's 


letter 
letter  digit 


string  id's 
f  unc  t  i  on  i  a  '  s 


letter   '$' 
letter  digit  '  J  ' 

FN  letter 

FN  letter  digit 


These  forms  are  recommenaed  however  the  following  are 
the  resrtictions  which  are  enforced. 

1)  length  1-4  characters 

2)  the  id  must  begin  with  a  letter, 

uooer  or  lower  case 

3)  rules  for  the  recognition  of  types 


numer  i  c  id's 


wxy  z 


w  ->=  F ,  f 
x  -» =  N  ,  n  , 
y  i-      J 


string  ids 


w  x  v  z 


w  "•  =  F  ,  f 
x  -*  =  N  f  n 
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x  or  y  must  =  $ 

func t ion  id's   wxyz 

w  must  =  F  f  f 
x  must  =  N>n 

4)  id's  may  mix  upper  and  lower  case  freely 

************************************************************ 

NOTE 

reserve  words  are  acceptable  as  entirely  UPPER  CASE  or 
LOwER  CASE,  however  thev  may  net  be  ^I*ED1 


*/ 


if  (i 


!=  -1  ) 
if  (  a  i  mv 

sw 

case  0 
case  1 


itchCsymtableH]  .type) 


return  t  yoe 
!  !  defv  =  =l) 


i  f  d  redec 1  a  red 


case  1 

case  2:  case  3 

case  4 

case  5:  case  6 

case  7  :  case  * 
default:  error 
} 

yv 1 va 1 =  i 

switch  ( 
{ 

case  0 

case  1 

case  1 

case  2 

case  3 

case  4 

case  5 

case  b 

case  7 

case  8 

case  9 
}} 


if  (defv  ==  i) 

{  yylval=insert(id); 

return(numeri  c«-i  d)  /  } 
er  ro  r ( i  d / msq ( 0]  ) ; 
return  (numeric«-id)  ; 
error(id,msg(l]  )  I 
r  e  t  u  r  n  (  a  r  r  a  v  <-  i  d  )  ; 
er ror ( i  d,  msg  [2]  )  ', 
return(string«-id)  ; 
er  ro  r ( i  d , msg  f  3]  )  ; 
return  (  func  t  i  on<-  i  d)  ? 

• 

:     case    9:     er ro r ( i d , msq 14] ) ; 
( id,msg  t71  ) ; 


symt  ab 1 e  t  i ]  .  t  yoe ) 


0:  return  (nurreric«-id)l 

return  farray«-io); 

return  (string*- id); 

return  (  s  t  r  i  ng«-  i  a  )  ; 

return  (  f  unc  t  i  on<-  i  d  )  J 

return  (  nume  r  i  c*-b  i  f  )  ; 

return  (string«-bif); 

return  (  s  i  rrp  1  e<-  f  o  rma  t  )  ; 

return  (numeric*-format)? 

return  (  s  t  r«-num«-b  i  f  )  J 
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/*   check  for  a  function  definition   FN,Fn,fN,fn   */ 

if     ( (id  10]     ==     'F'     J  !     idfOl     ==     ' f )     && 
(id  [1]     ==     'N'     !  !     idtll     ==     'n'  )) 
(i=insert(id);     v  y  1  v  a  1  =  i  ; 
symt  ab 1 e  ( i 1 . t  yoe  =  4 ; 

return     (  f  unc  t  i  on<-  i  d  )  i  > 

/*  not  a  function  --  a  string  id??    x$,xy$   */ 

if  (idU)  ==  '  $'   !!   id  [2]  ==  '  $'  D 
{i= insert (id);  yylval=i; 
if  (dimv  i=  1  )  ( 

error(idf 

"**rtARNING**  unoefined  string  id")? 
error (id^" assigned  default  length  lb"); 
errorcnt  =  errorcnt-2; 

//  back  out  error  on  warning 
symtable[il.length=16;   } 
syrntableCil  . t  yoe  =  2 ; 
return  (  s  t  r  i  ng«-  i  d  )  ;  } 

/*   not  function  or  string  rrust  be  numeric   */ 

i=insert(ia);  y  y  1  v  a  1  =  i  ; 
return  (  nume  r  i  c  *-  i  d  )  ; 

case  a:  d=o.;  b=.i;  j=o;  i=0; 

//  numbers  fall  here 

/*   aoes  the  number  beain  with  a  decimal  point  ???   */ 

numstrfj-t-H=c;  if  (  c  =  =  '  .  '  )  1=1; 
c=get  c ( f  i  1 e  i  n  )  ; 

whileCchartypelcl  ==  a   &  &  j  <  a  9  ) 

if  (c  1=  '  .  '  ) 

{numstrfjf  +  1  =  c  !  c=getc(filein);  } 
else  if  ( i  == 1  )  <   break ;  > 

else  (   i  =  l;  nums t r  [  j +  + 1 =c ; 
c=ge t  c ( f  i  1 e  i  n )  ;   > 
if  (i  !  !  j<5)  numst r  Ej]=  '  \0'  ; 

el se  if  ( j>5  !  !  numst  r  [0]  >=  '  3'  ) 

{  i=i;  numstrtjHl:'.'; 
numst  r  [  j ]  =  '  \0 '  ;  > 
else    {  numstr[j]='\0';  } 

if  (i  ==  0  )  {  j  =  atoi(numstr);  k=lookni(j); 

//  declared  as  integer  lookup 
if  (k  ==  -1 ) 

{  d=j;   k  =  i nse r t n r  (  j  , d ) ; 
numbers  [k]  . dec=0 ; } } 

else  (  d=a t o f ( nums t r ) ; 


1  UR 


//declared  as  real  lookup 
j=d;  k=looknf(d); 
if  (k  ==  -1) 

{  k  =  i  nser t  n  r ( j , d ) ; 

numbers  [  k]  . dec =  -15   }} 
/*  return  index  in  number  table 
in  yylval  and  return  number  */ 

y  y  1  v  a  1  =  k  ;  return  (number); 


case  5:  stigl=0;    //  strings  fall  here 
whi le  ( (c=getc(f i  lein)  )  1=  •"« 
&&  stigl  <  256) 
stig[stigl-n-l=c; 
//  collect  the  string  in  stig 
c=getc(fi  lein);  s  t  i  g  [  s  t  i  g  1  )  =  '  \  0  '  ; 
//  out  in  the  null  for  string 
return  (string); 
case  6:      //   continuation 

conflag=i;   c =get c ( f i  1 e i n  )  ;  break; 
//  flag  on  nextchar 
de fault:   return  (0)  ; 
/ *   end  of  yylex   *  / 


}}} 


yyinit  (argc,argv)    int  argcl  char  **aravJ   { 
if  (argc  i=  2)     <     errorC'ARG  COUNT??", 0); 

j  =  o; 
i  j  =  o ; 

whi  leCarqv  111   [j]      1  =     '\0'        &&     ij     <    NAMELENGTH 
{    if    (argvllj     [j]     ==    '/•)     {    ij=0;    j++;} 

//    set     filename    back 
else       filnam[ij+tl     =arqv  [1]      ( j  +  + )  ; 


int  i  j  ; 
e  x  i  t  ( 1 ) ; } 


-  2) 


i  j<3) 

exit(l); 


) 


ocen??");  exit(l);   > 


} 
i  f (  i  ( f i  1  nam  (i  j  —  11  =='b" 

&&  f i  lnam  [i  j-21  =  =  '  .  '  )  \ 
{    error ("fi le  type??", 0) ; 
f i  lnam  U  j -11 ='s'  ; 
f i  lnam  [i  j 1  =  '\0'  ; 
fout  =  creat(fi lnam, 0666); 
i  f  (fout  ==  -1 ) 

{  error(fi  lnam,  "can  not 
printfC"  .  g  1  0  b  1  «-main\n\n.text\n\n«-main:\n\n"); 
Drintf("setd\nmov  SSTACK , r4W ) 5 
semant (32,-1); 
semant (55,-1); 

for(tnum  =  0;  bifsftnum]  I  -     0  7     tnum  +  f) 
{   j  =  i nse r t  (b i  f s  ( t num)  )  ; 

symt ab 1 e  [  j ]  .  t yoe   =  b i  f t yoe  1 1 num]  ; 
symt ab 1 e  [  j 1  . di men  =  l; 
symt ab 1 e  (  j 1  .  1 engt h  =  bi  fact  [tnum]  ; 
> 
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RWBASE=j ; 

j  =  1  o  o  k  u  o  (  "  m  o  d  "  )  ;  s  y  m  t  a  b  1  e  [  j  1  .  d  i  m  e  n  =  2  ; 
j  =  1 ookuo( " rnd"  ) ;  symt abl e  t  j ] .  di  men  =  0 ; 
j=lookuo("page")  ;  s  y  m  t  a  b  1  e  [jl  .  d  i  m  e  n  =  0  ; 
if  ( f ooen ( arqv [ 1 ] , f i 1 e i n )  =  =  -1) 

(errorC'can  not  open  arql",0); 

unlink(filnam);  ex  i  t  (  1  )  ;  } 
c=get  c  (  f  i  1  e  i  n  )  ;   } 

//  called  first  by  yacc  get  first  character 


yyaccpt 
print 
print 
print 
k  =  dat 
print 
print 
for  ( 
n 
print 
print 
i  f  (d 
for  ( 

i 

print 
for  ( 
i  f 
{ 

for  ( 
{ 


(  )  { 
f  (". 
f  ("S 
f  (" 

apt  * 
f  ("D 

f  ("0 
j=0; 
umb  r 
f  CD 
f  ("S 
at  as 
data 
d 
f  (* 

f  ("\ 

j=o; 

( num 
pr  i 
num 

J  =sy 

k  =  s 

Sw 
{ 


i  nt 
gl  ob 
TRNE 
.dat 

a; 

AT  CM 
ATA: 

i  < 
cvU 
ATAE 
TRNE 
t  pr 
ot  r 
at  ap 
data 
e 
\o>; 

j<n 
bers 
ntf  ( 

b  re  v 
mpt  + 
ymt  a 
i  ten 


k  ,  1  t  m 
1  DAT 
XT,STR 
a\n\n" 

T:  0\n 
\n"  ); 
dat  ap 
da  t  a  [  j 
MD:  o; 
XT: 

!=  dat 
=  &dat 
t  r  <  o 
ot  r  =  = 
1  se  p 
STREN 
umbe  re 
t j] .de 
MN%d: 
( &numb 

i;  j<R 

b  1  e  [  j  1 
(k) 


rn#  char  *dataptr;  double  d;  d  =  0; 
CNT,DATA,DATAENDM)  ', 
EMD,STRDATA\n") ; 

); 


"); 

t ; 
i ); 

o;o 
=  .+ 
as  t 
as  t 
at  a 
•  \ 
utc 
C: 
t  ; 
c  1 
•\j 
e  rs 
WBA 
•  ty 


i+  +  ) 


;o\ 

2\n 

r  i  n 
r  i  n 

StD 

0'  ) 
h  a  r 

.b 

j  +  + 

=  0 

)  ; 
tj] 

SE; 
pe; 


n  " )  ; 

STRDATA:\n")  ', 

a  [  0  ]  )  p  r  i  n  t  f  (  "  \  n  <  "  )  ; 

g(0]  ; 

r;  dat aot r  +  +) 

p  r  i  n  t  f  (  "  \  \  0  >  \  n  <  "  )  ; 
C  *  d  a  t  a  p  t  r  )  ; 

yte  0;.byte  0;  . e v e n \ n " )  ; 
) 

!!  numbers  I  j 3 • 1  use  ==  1) 


.numberf ) ; 


} 


case  0 : 
case  10: 
p  r  i  n  t  f  (  M  S 

case  1 : 


case  2 : 


case  4 


%d:  0;  o;  0;  o\t/  %s\n", 
j  >  s  y  m  t  a  b  1  e  [  j  1  .symbol  ) /'break; 
l=symtabletj]  .  doov ; 
m  =  symtable[j]  .dimen; 
printf  ("SD%d  :   %o\ t \ t /%s\n " , 
j/m»svmtablelj]  .symbol); 
for  ( n= 1  +  1  ;  n  <  1  tmj  n  +  + ) 
{  i  f  (k  =  =l )  dope  [n] =*  6; 
printf  C"  %o\n" , 

dope  fn]  )  ;  } 
break; 
=symtable(j] .length-1; 
rintf("S%d:  0;    . s . +  %0 r " r j  i  1  )  i 
rintfC  .even\t\t/%s\nM, 

svmtable  (j  J. symbol);  break; 

rintf("s%d:  o;  o;  0;  o\t\t",j); 
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printf("/%s\nM ,symtableUl  .symbol  ); 

break? 


) 


j=o; 

for     (k  =  0;     k<  1 5 ;     k  +  +) 
i  f (fds  [k]     1=0) 

{ 

if    Cfdstk]    ==    1)    j++; 
e  1  se 
error("more     files    referenced    than    opened %0); 
} 
i  f ( j 1=0) 
< 

print f ("BUF:  .=.+%o\n'\ j  *518)  ; 
print  f  C'.ql obi   FO , FD0\nF D : \n  "  )  ; 

i=o; 

f  o  r  (  k  =  0  ;  k  <  1 5 ;  k  +  +  ) 
if  (fds  UJ  1=  0) 

print  f  (M\tBUFt%o\nH,518*(l +  +  )); 

else  o  r  i  n  t  f ( " \ t  0 \ n " ) ; 
printf ("FDO:  .=.+30.\n") ; 

Drintf(".text\n.globl        FCLOSENnENDEP : W ) ; 
printfCjsr      PCfFCLOSE\nH); 
printf ("sys       e  x  i  t \ n  M ) ; 
> 
else    ppintf(M.text\nENOER:     sys    e  x  i  t  \  n  "  )  ; 

print  f ( "\n\n.bss\n\n"); 

print f ("STACKTOP:   .  =  . +50  .  \nST AC K :  .=.+2\nM); 

for  (j=0;  j  <=  forctr;  j  +  +  ) 

print f ("FM%d:  ,=.+8.\nFI%d:  .=. +8.\nM , j , j ) ; 
if  ( m  a  x  t  e  m  d  <  20)     k=maxtemp;  else  k  =  2  0  ; 
for  ( j  =  0  ;  j  <  k  ;  j  +  +  ) 

print f ("T%d:  .=.+  8.\n",j); 
for  (j=sympf»"l;  j  <  RWBASE;  j+  +  ) 
{  k=symtabletj].type; 
l=symtable(j].amt  ; 
sw  i  t ch ( k ) 
{ 
case  1:  1  = 1 *8 ; or i n t f ( MS%d :  .=• +%o\t \t /%s\n" , 
j  r \  fSymtablelj]  .symbol  ); 
break ; 
case  3:  printf("S%d:  .  =  .+°4o;  .  even\  t  \  t  /%s\n  "  , 

j/1 /Symtabletj]  .symbol  ) > 
) 


) 


) 
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MAIN  PROGRAM 


n    define  EPRORFILE  2 

U     include  "./bstruc.h" 

extern  int  errorcnt;  M  leoutr  fout  /  yyline>  R^BASE, 

numberpt  » Sympt / j  ; 
extern  char  filnamU; 
main  ( arqc  t a  rgv ) 

int  a  rgc  J 

char  *a  rqv  U  ; 

{ 

yyini  t (argc/argv) ; 

if(yyparse()  !!  errorcnt  >0) 

{  unlink(filnam);  exit(l);   > 

yyaccDt  (  )  ; 

f  1  u  s  h  (  )  ; 

e  x  i  t  (  0  )  ; 

> 
compar(sl/s2)  //  compares  two  strinas  returns  0  if  n.e 

char  *s 1 , *s2  ; 

{ 

while  ( *s  1  +  +  ==  *s2) 

if  C  *  s  2  +  +  ==  '0')  return  CI)/ 

return  ( 0  )  ; 


st  rcopy ( s  ,  t  ) 
char  *s/*t; 


//  this  procedure  cooies  strinas 
{ 


wh  i 1 e ( *t  ++  =  *s  +  +  )  ; 


numbrcv(st)     int     *st      U? 
{     int     i  ; 

for     ( i  =  0 ;     i  <  3 ;     i  + * ) 

print f ("%o;     " t St  Ml  ); 
p  r  i  n  t  f  (  "  %  o    0 , s  t  [  3 ] ) ; 
} 


er ror ( x / y  ) 
{ 


char    *x#*y» 


f  1  u  s  h  (  )  ; 
fileout=fout; 

fout  =  errorfile; 

if  (y  ==  0) 
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printfC  I  5  3  s  0  ,  x  )  ; 
e  1  se 

printf("153d:  %s:  XsO,yy) ine,x,y) ; 
f  1  u  s  h  (  )  ; 
f out  =  f  i  1  eout ; 
errorcnt++; 


> 


yyerror(s)  char  *  s  ;  ( 
extern  int  yychar; 
extern  char  *yvstermU; 
f  1  u  s  h  (  )  ; 
fileout=fout; 
fout=ERRORFILE; 
d  r  i  n  t  f ( " 1 5  3  s  ",  s  )  ; 

i  f  (  yyline  )  printf  (\  line  %  d  i  w  t     y  y  1  i  n  e  )  ; 
orintfC  on  input:  "),* 
i  f  (  yychar  >=  0400  ) 

printf("%s0,  yystermlyychar-0400]  ) ; 
else  switch  (  yychar  )  { 

case  '  ':  p  r  i  n  t  f (  "\t0  );  break; 
case  '0:  printf(  "  \  n  0  );  break; 
case  '0':  printf (  "  S  e  n  d  0  );  break; 
default:  prints  "%c0  ,  yychar  );  break; 
} 
er rorcn t  +  +  ; 
f  1  u  s  h  ( )  ; 
f out  =  f  i 1 eout ; 
} 


1 ookup (s)  char  *s;   { 
int  i  ; 


//  this  Drocedure  validates  id's 
//  returning  -1  or  symboltable  index 


for  ( i=sympt+l ;  i<RWBASE;  i++) 

if  Ccompar Cs * symt ab 1 e til • symbo 1 )  >  0)  return  Ci); 

/*   handle  uooer  and  lower  case  reserve  words  * / 

for  (i=RwBASE;  i<SYMSIZE;  i+  +  ) 

if(compar(srsymtab1e[i]. symbol)  >  0  } | 
bifcomoar(s/i)  >  0)  return(i); 


} 


ret  urn  ( -  1 ) ; 


b i f comoar ( s ,  i  )   char  *s;  int  i; 

{  //  check  bifs  by  translating  all  lowercase  to  uppercase 
//  returns  index  or  -1  if  no  match 
int  kl  t  k? 
char  t  [SIMLEN3  ; 

k 1 = ' a ' - ' A ' ;  //  difference  between  uppercase  and  lease 

for  ( k  =  0 ;  s  C  k  J   !=  '0';  k  +  +  )  ttkl  =  s  I  k  J  +  kl; 
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t  tkl    =    ' 0'  ; 
return(compar(t,symtable[i]  .symbol  )  )  ; 


> 


lookps(str)   / *  resere  word  1  o  o  k  u  d  -1  is  not  found   */ 
char  *str;  { 
i  n  t  i  ; 

for  (  i =0 ; reservewo rds [ i ]  1=  0;  i+  +  ) 

if  (  compa r ( s t r , rese rvewo rds I i  1  )   !! 

comoa r ( s t r , %  1  rese rvewords  [ i  1   [1]))  return(i); 
return  ( - 1 ) ; 
) 


looknf  (nf  )  //locates  numbers  declared  as  real 
doub 1 e  n  f  ;   { 
int  i  ; 

for  (i=0;i  <  numberot;  i+  +  ) 

if  (numbe r s  [  i ]  .  numbe r f  ==  nf)  return  (i); 
return  (-1);  //  return  -1  for  not  found 


lookni(ni)    //  this  procedure  locates  numbers 

//  declared  as  integer 
int  n  i ;   { 
int  i  ; 

for  (i=0;i  <  numberot?  i+  +  ) 

if  (numbers  (il.nijmberi  ==  ni)  return  (i); 


return  ( -  1 ) ; 


//  return  -1  for  not  found 


insert (cc)        //  this  procedure  inserts  new  id's  and 
char  *ccM    //  zeros  all  entries  -- 

j=sympt--;  //  returns  index  in  table 

if  ( j  <  0 ) 

{  error("  fatal  error  -  -  symbol  table  overflow", 
"compilation  terminated"); 
unlink(filnam);  exit(l); 
} 
strcopy(cc/symtablefjl  .symbol  ); 

symtablefjl  .type  =  0; 
symtabletjl .  d  i  m  e  n  =  0  ; 
symt  ab 1 e  [  j ] .lenqth=0; 
symt  ab 1 e  U 1 .  dopv  =  0 ; 
return  ( j ) ; 
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i nsertnr ( j 1  $ d3    //  this  orocedure  adds  new  numbers  to  the 

double  d;  int  jlj  //  number  table  --  zeroing  all  entries 
{   int  i?  //  returns  the  index  in  the  table 

i  =numberot  ++ ; 

if  ( i  >=  NUMSIZE) 

{  errorC fatal  error  --  number  table  overflow "  f 
"compilation  terminated"); 
unlink(filnam);  exit(l)/ 
> 

numbers  [  i 1  .numberf=d; 
numbers  H 1  .numberi  =  j  1  ; 
numbers  [i ]  .  use  =  0 ; 
numbers Cil . 1 use=0 ; 
numbers  (il  .dec  =  0; 
return  ( i  )  ; 
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LIBRARY 


.glool  COMPAR, AND, OR, XOR, NOT 
.text 
COMPAR: 

j  mp  3  f ( r  3) 


3: 


COMPAR. s 


beq 

br 

bne 

br 

bqt 

br 

bl  t 

br 

ble 

br 

bge 


5f 

at 
5f 
«f 
5f 

at 
5f 
af 
5f 

af 


Cl  r 

rt  s 


-(pa) 

DC 


//  FALSE  into  stack 


mov 
Pt  s 


$l,-(rU) 

PC 


//  TRUE  into  stack 


NOT: 
t  st 
beg 
cl  P 
PtS 


(r4) 
1  f 

(pa) 

DC 


//   TRUE  op  FALSE  in  stack? 
//  TRUE  before  set  FALSE 


mov 
rts 


si , (ra) 

DC 


//  FALSE  before  set  TRUE 


AND: 

Cmp 
bne 

PtS 


1  : 


c  I  P 
rts 


(pa) *, (ra) 
1  f 

dc      //   both  the  same  so  AND  is  correct 


(pa) 

DC 


//   different  AND  =>  FALSE 


OR 


1 : 


cmp   Cr4)+, (r4) 

bne   1  f 

pts   dc      //   both  the  same  so  OR  is  correct 

mov  Slr(r4)  //   different  0»  =>  TRUE 
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rt  s   pc 


XOR: 
cmp 
beq 
mo  v 
rts 


( r  a )  + ,  ( p  a ) 
1 1 

Slf (r4) 

DC 


//  di fferent  XOR   =>  TRUE 


c  1  r 
rts 


(rU) 

DC 


//same   XOR   =>  FALSE 
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CSET.s 


.ql  ob 
.g  1  ob 
.text 

CSET: 
mov 
mov 
mov 
cmp 
beq 
mov 

1 : 

mov 
jmp 

here: 
sob 

3: 

j  mo 


1  CSET,CRET 

1  <-ndi  qi  t  /  ERROR,  st  rmv 


(ra)+, r3 

(so) *, rO 

sprstacksave 

$  0 ,  r  3 

11 

She  re / rS 

(ra)+, r2 
*2f Cr2) 

r3,  lb 


/  save  old  stack  pointer  for  choD 


*r0 


/  table  of  actions 


i  n t  va l 
f 1  oat  va 1 
dbl val 
charva 1 
SDec  i  a  1 
intarray 
floatarray 
db 1 aray 
charstrinq 
SDec  i  a  1 


i  n  t  va  1  : 


movf   * ( r4)  +  , f  rO 
mov  f  i    f  rO  r  r2 


mov 
j  mo 

f 1  oat  va 1  : 

mov  f 
set  f 
mov  f 
set  d 
j  mo 

dbl val  : 

mov  f 
mov  f 
j  mp 

db 1 aray : 

t  st 
mov 
j  mp 

floatarray: 

i  n t  array : 


r2r -Csp) 

*r5 

* ( ra) ♦  , f  rO 

f rO,-(so) 

*r5 

* ( rU)+, f rO 
f rO,-Csp) 

*r5 

(r4)  +  /throwaway  doDevector  info 
(r4)+,-(sp)  /  put  address  in  stack 
*r5 

jsr   r5, ERROR 
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<**ERROR**  uni mol ement ed  call  oction\0>; 
charvai : 

tst  (r*4)+       /  throw  away  length 

movb  * ( pa) +, -(sp) 

j  mp  *  r5 
charstring: 

tst  (ra)  +       /  throw  away  length 

mov  ( rH ) + t  - ( so  ) 

j  mp  *  r5 
spec  i  a  1 : 

mov  * ( r4 ) + , - ( sp) 

j  mp  *  pS 


.even 


CRET 


mov   (  so ) + , p 1 

mov   stacksave>so 

set  d 

tst   2(p4) 

beq   1  f 


mov 
jmp 


(pa) ♦ ,  rZ 
*2f (r2) 


2: 


i  nt  ret 
f 1  oat  ret 
dbl ret 
charret 
spec  ret 
i  ntpt  p 
f 1 oatot  r 
dbl pt  r 
c  harp t r 
soec  ret 


i  nt  ret  : 

t  st 
mov  i  f 
mov  f 
jmp 

f 1  oat  ret  : 
tst 
set  f 
cl  ri 
mov  f 
set  d 
j  mp 

obi  ret  : 

tst 
mov  f 
jmp 

charret  : 


(pa)  + 

rO, f  rO 
frO,*(ra)+ 
*rl 

(ra)  + 

a(pa) 

f rO,*(rU)+ 

(ra)  + 

f rOf  * (pa) * 
*rl 


/  throwaway  dummy 


/  throwaway  dummy 


/  throwaway  dummy 
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tst  (ra)+ 

movb       r 0 ,  ( r<4  ) 
movb     'S  *\0,  l(p4) 


/  throw  away  dummy 


cmp 

J  TIP 

charo t r  : 

tst        (r4)  + 

mov 

mov 

mov 


(r4)+,(rU)t    /throw  away  old  lenqth  and  addr 
*rl 


/  throw  away  dummy 

(r4)+,r3    /  get  address 

Cr4)+#r2    /  get  old  lenqth 

r3f-(rA)    /  restore  address  on  bottom 

mov   r^r-(rU)    /  restore  lenqth  on  too 

mov   rOf-(r^)    /  new  strinq  address 

mov   5777 7 7 / - ( r ^ )  /dummy  1  en  to  force  use  of  old  1  en 
j  s  r   pcrStrmv 

*rl 


J  mp 
spec  ret  : 

tst   (rU)  f 

mov 

j  m  p   *  P  1 
i  ntpt  r  : 
f 1 oatpt  r  : 
dblpt r  : 

j  sr 


/  t^row  away  dummy 
r0,*(r<4)  +   /  move  oointer  into  olace 


1 


r5, ERROR 
<**ERR0R**  un i mp 1 emen t ed  call  ootion\0>;   .even 

/   procedure  calls  come  here  clean  stack 


charuse  =  6 
charDuse  =  1 b 

cmp  (p/4)fScharuse    /  check  for  char  call  with  4  parms 

beg  2f 

cmp  (p4)f fScharpuse  /  check  for  char  call  with  U    oarms 

beq  2f 

cmp   (r4)+,(r4)+     /  throwaway  unneeded  function  artdrs 

j  mp    *  r  1 

2: 

cmp  (p4)+#(p4)+     /  throwaway  unneeded  function  aadrs 

tst  ( r  '4 )  +           /  throwaway  unneeded  function  addrs 

j  m  p  *  r  1 

st  acksave :   .  = .  +2 
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•gl obi 

•  text 
DOPCAL: 


DOPCAL 


DOPCAL. s 


mov 
mov 
mov 
i  nc 
i  nc 
mov 


$0 , dc  t  mp 

*(r4) , rO 

(pa) +  , rl 

r\ 

rl 

$8,  r2 


/get  number  of  subscripts 

/move  address  of  dooe  vector  into  rl 

/move  to  fisrt  dope  value 

/the  first  displacement  is  1 


TOPC: 

mu 
ad 
mo 
so 
mo 
ad 
mo 
Pt 
.dat 
dc  t  mo 


(p 
p3 
(r 
rO 
dc 
(p 
rl 

PC 

0 


a)t,p2 

, dc  t  mp 
1 )♦, p2 
,T0PC 
t mp, r3 
a),  r3 

,  Cpa) 


/add  in  the  base  of  the  array 
/leave  the  address  in  the  stack 


/  temporary  for  calculation 
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ERROR. s 


.qlobl  ERROR 
ERROR: 
1 : 


2: 

erch  : 


mov    $2  >  rO 

movb   ( r5 ) t , ere  h 

beq    2f 

sys    write?   erch; 

br  tb 

sys    exit 
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.gl ob 1 
•gl ob 1 
.text 


OPFN.s 


OPE M, CLOSE, SERROR,FC LOSE 

FD, FD0,f open, fcreat, ERROR, flush 


OPEN 

m 

m 

m 

m 

a 

t 

b 

J 
< 

1: 

i 

m 

a 

J 


o  v  (  r  4  )  +  ,  r  1 

ov  ( ra ) + , rO 

ov  rO , r2 

ov  $FD0,r3 

dd  Cr4),r3 

st  Cr3) 

eg  If 

sr  r5,SERR0R 

attempted  to  reopen:  \0>; 


/mode 

/address  of  name 

/open  f 1 aas 

/select  correct  flag 

/ooen  or  closed 


.even 


nc 
ov 
dd 
mp 


Cr3) 
$FD, r3 
(r4) +, r3 
*3f  (rl  ) 


/bu  ffer  base 

/select  correct  buffer 

/select  mode 


RANDO 
ROPEN 
CREATE 
APPEND 


/table  of  modes 


RANOO: 

jsr    r5,SERR0R 

<un i mp 1 emen t ed  random  access:  \0>; 


even 


ROPEN: 

mov 

(r3),3f 

j  sr 

r5 , f open ;  3 : 

bes 

FILERROR 

rt  s 

PC 

CREATE: 

mov 

(r3)  , 3f 

j  sr 

r5 , f c  rea t ;  3: 

Pes 

FILERROR 

rts 

PC 

APPEND: 

mov 

r0,3f 

sy  s 

ooen ;   3 :   0 ; 

bes 

FILEARROR 

mov 

rO, *(r3) 

mov 

$512  .,*2(r3) 

mov 

r3,  r2 

add 

$6,  r2 

mov 

r2t *4( r3) 

mov 

*Cr3) , rO 

sy  s 

seek;  o ;  ? 
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rts 


DC 


FILERROR: 

jsr    r5,SERR0R 

<file  open  error:  \0> 
FILEARROR: 

jsr    r5, ERROR 

<error  on  open  for  apoend\n\0>; 


.even 


SERROR: 

1 : 

mov 

$2,  rO 

movb 

(r5) +,sech 

beq 

21 

sys 

write;  sech; 

br 

lb 

2: 

mov 

S2,r0 

movb 

( r2)  f # sech 

beq 

3f 

SYS 

wri t  e /  sech ; 

br 

2b 

3: 

mov 

$2,  rO 

mov 

$  '  \n , sec  h 

sys 

write?  sech? 

sys 

exit 

CLOSE: 

mov 

$FD, rl 

add 

(r4)  ,  r3 

mov 

(r3)  ,2* 

J  sr 

r  5  ,  f  l  u  s  h  ;  2  : 

mov 

*(r3)  , rO 

sys 

close 

mov 

$FD0, r3 

add 

( r4) +, r3 

Cl  P 

(r3) 

rts 

PC 

FCLOSE: 

mov 

$14  . , rl 

mov 

SFD, r2 

mov 
1 : 
tst 

$FD0, r3 

(r3) 

beq 

2i 

mov 

(r2),3f 

j  sr 

r5/ f lush;  3: 

mov 

*  (  r?) ,  rO 

sys 

close 

2: 

add 

$2/  r2 

add 

$2,r  S 

I6a 


sob 
rts 
.data 
sech:  0 


rl  ,  lb 

DC 
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q  1  ob  1 
gl  ob  1 
text 


READF.s 


READF,READFN,READFSfREADFE 
FD,FDO,qetc 


READF: 

mov 

add 

mov 

rts 
.dat  a 
READFILE: 


$FD, r2 

(pi) t, r2 

Cr2) , READFILE 

PC 

0 


RE 


1  : 


2: 


globl  ERROR 

text 

ADFN: 

mov  $  rnumbs  t  t  r  3 
mov  $23  . t  r 1 
ct  r  r2 

mov  READFILE, 2f 
j  sr   r5, get c ;  2 

bes   badread 

movb  r 0  >  re  h 

cmoh  $'9, rch 

bl  t  6f 

empb  $'0,rch 

bgt  2f 

movb  rch , ( r 3 ) ♦ 

sob  r  1  ,  lb 

br  fc>f 

empb  $  *  / re  h 

beq  3f 

empb  5  '  \t , rch 

beq  3f 

empb  $ '  . t  rch 

beq  5f 

empb  5' -r rch 

beq  4f 

empb  S  '  + , re  h 

beq  3f 

br  6f 


/lenqth  of  number  limited  to  2  3  diaits 


/s t  anda rd  i  nout 


emp 

r  ~b ,  5  rnumbs  t 

beq 

lb 

emp 

r 3 , Srnumbs t  +  1 

bne 

b1 

tst 

r2 

bne 

6f 

sob 

rl/lb 

emp 

r  3 , Srnumbst 

bne 

bf 
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5: 


6: 

Z: 

ba 
<E 


movb  re  h ,   ( r3 ) t 
br  lb 

tst  r2 

bne  6  f 

movb  re  h t  C  r  "5 )  ♦ 

i  nc  re? 

sob  r  W  1  b 

tst  r2 

bne  2f 

movb  $ '  .,(r3)t 

movo  S  '\0# ( p3) 

mov   $ rnumbs t t  - ( rU ) 

rt  s   dc 
dread : 

jsr  r5, ERROR 
RROR  baa  system  cal  1 
even 
data 
h :     .=. +2 


READFN\n\0> 


re 

rnumbs t : 


.=.+2a 


.qlobl  ERROR 
.text 
READFS: 


1 


mov  ( rU ) + t r 1 
mov  (r4)+fr2 


/lenqth  to  be  read 
/address 

/de  fault  i  nput 


mov  READFIl_E,2f 

jsr   r5,qetc;  2:  0 

bes   bads  read 

movb  r 0 / s  re  h 

empb  $  '  \n  r s  re  h 

beq  2f 

empb  $,M,srch 

beq  2f 

movb  s  re  h  t  (  r<?  )  + 

sob   r I / 1 b 
2:  movb  $'\0, (r2) 

rts  pc 
bads  read : 

jsr    r5, ERROR 

<ERRQR   bad  system  call   READFS\n\0>;   .even 


/put  character  in  place 

/string  full  yet? 

/all  strings  end  in  null 


s  re  h  : 


.  =  .+2 


READFE: 
1  : 
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mov 
J  sr 
bes 
cmpb 
bne 
2: 
rts 


READFILE,2f 

r5,qetc;  2:  0 

2f 

$'\n, rO 

lb 

pc 
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SOCAL.s 


.globl  SDCAL 
.text 
SDCAL: 

mov  f  *(pa)t,frO 

mov  f  i  f  rO ,  r2 

mov  (ry),rl 

inc  (ra) 

mul  (  r<4  )  +/  r2 

add  r3,(r<l) 

mov  rl»-(r4) 

rt  s  pc 


//  save  lenqth  for  later 
//  auament  length  bv  null 
//  multiply  by  lenqth 
//  add  di  solace^ent  to  base 
//  restore  the  length 


on  ena 
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SUBSTR.s 


•gl obi 

.  text 

SUBSTR: 
mo  v  f 
mov  f 
mov 

mov  f  i 

dec 

cmp 

bqe 

mov  f  i 

add 

Cmp 

bqe 


SUBSTR 


*(ra)+, f rO 
*( ra}  +  ,  f r  1 
( r4) +, r 1 

f rl ,  rl 

r?. 

r2,r\ 

1  f 

f r0,r3 

r3,  r? 

r2,rl 

2f  * 


mov  f  i  f  r  1  / r 2 

dec  r2 

add  r2/(r4) 

movfi  frO/-(r^) 

rt  s  pc 


//  length  of  substr 
//  Starting  offset 
//  1 engt  h  of  String 


//  too  1 ong 

//  start+length  too  far 

//   al 1  OK 

//   alter  address  by  starting  byte 
//   new  lenath  into  stack 


ada 
mov 
rts 

sub 

movfi 

add 

movfi 

sub 

mov 

rts 


rU  Cp4) 

JU-(ra) 

PC 

rl,r2 

f rl , r3 
rl, (r4) 
f rO, r3 
rP,  r3 
r3,-(r4) 

PC 


//   ooint  to  end  of  strina(NULL) 
/ /  1 enat  h  now  1 


//  how  much  too  big 


r>  -p  -? 


//  new  starting  address 
//  aet  length  again 

//  new  1 enat  h 
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WRITF.s 


•  globl  wR  I  T F  ,  WR  I  T F N  ,  W R  I  T F  S  ,  WR  I  TF E 

.globl  FD,FD0,outc 

.text 


WRITF: 

mov 

add 

mov 

rt  s 
.dat  a 
WRIT  FILE:   0 


$FD, r2 

Cr4)+, r2 

(p2) ,aRITFILE 

PC 


.globl  nodi qi t ,  f 1 oter, ERROR 
.text 
WRIT  FN: 

mov  Swnumb  r f r 3 
jsr  DC/floter 


mov  $wnumbr<r3 
mov  nod  i  gi  1 1 r2 

movb   ( r3) + / rO 
mov    wRITFILE,2f 
jsr   r5 , put  c  ?  2 : 
sob  r2 ,  1  b 
movb  $ '  >  r  0 
mov    WRITFILE,2f 
jsr   r5  /  Dut  c  '>     2  : 
r  t  s  pc 


wnumb  r  : 


.=.+2u. 


.globl  ERROR 
.text 

ARITFS: 

mov  ( r 4  )  +  t  r 1 

mov  ( r4 ) +  >  r2 
1  : 

mov    WRITFILE,2f 
movb  C  r2) t , rO 
beq  5f 

jsr    r5f  out c  J  2 : 
sob  r  1  »  1  b 


rt  s  pc 


5: 


171 


movb    $ '     , rO 

mov  wRITFILE,2f 

j  sr  r5 , putc ;     2 : 

sob    r 1 / 5b 

rts    pc 


ftRITFE: 


movb  S'OrO 

mov  lwRITFILE,2f 

j  s  r  r5 , out c  ?     2  : 

rts  oc 


1  12 


asc  .  s 


•  gl obi  asc 

.text 
asc  : 

tst   Cr4)+ 

mov   (p4)+,rl 
movb  ( p 1 ) ,  r2 
mov  if  rR ,  f  r 0 
rt  s   pc 


/  pop  stack 

/  address'  of  string 

/  retrieve  character 

/  convert  into  a  floating  ot  number 

/  for  return 
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at  of  .  s 


/   f  =  atof (d) 
/   char  *p ; 

ldfps  =  170100ttst 
stfps  =  170200ftst 

.gl obi  atof 


atof : 

stfps    - ( so ) 

ldfps    $200 

mov f     f  r 1 , - ( sp) 

clr  - ( so ) 

Cl rf     f  r0 

clr  r2 

mov  (  rH )  +  /  r3 


1 


movb      ( r3 ) + , rO 

cup  $'  ,r0 

beq  1  b 

cmpb     rO ,  %  '  - 

bne  2f 

i  nc  ( sp) 


1  : 
2: 


movb 


(r3)+, rO 


sub  $ ' 0, rO 
cmp  r0,$9. 
bhi  2f 
jsr  pC/diqitaf 

br  lb 
i  nc  r2 
br   lb 

cmpb     rO, $ ' .-'  0 
bne  2f 

movb     (r3)i,r0 

sub  $'0,r0 

cmp  rO ,  $9 . 

bhi  2  f 

jsp  pCfdigitaf 

dec  r2 
br   lb 


2: 


3: 


cmpb 
beq  3f 
Cmpb 
bne  1  f 

clr  rl 


rO,$'E-'0 
r0,$'e-'0 


l  7a 


cl  r 

rl 

cmpb     Cp3) i $ ' - 

bne 

3f 

i  nc 

ra 

i  nc 

p3 

3: 

movb     ( p3) + , rO 

sub 

$ '0, r0 

cmp 

p0,$9. 

bh  i 

if 

mu  1 

$10.  ,  rl 

aad 

r0,  rl 

br 

3b 

3: 

tst 

ra 

bne 

3f 

neg 

rl 

3: 

sub 

rl  ,p2 

1: 

1 : 


1: 


2: 


1  : 


movf     $one  »  f pi 
mov  rZ , - ( sp ) 
beq  2f 
bgt  If 
neq  r? 

cmp  p2 , $38 . 

bios     If 

c  1  r  f     f  p  0 

tst  ( sp) f 

b  m  i  o  u  t  a  f 

mov  f     $huge  »  f r0 

b  p   out  a  f 

mul f     5ten,frl 
sob  r2 ,  1  b 

tst  (sp) + 

bge  If 

d  i  v  f     f  p  1  ,  f  p  0 

bp   2f 


mu  1  f 
c  fee 
bvc  2f 

mov  f 


f rl, f rO 


Jhuqe , f  p0 


2: 

out 


1 : 


af : 

tst  (  sp)  + 

bea  1  f 

neg  f     f  p0 

mov  f     ( so )  +  , f  r 1 
1 df ps    ( sp ) + 
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rt  s  pc 


i  g  i  t  a  f : 

Cmpf 
c  fee 
bit  If 
mu  1  f 
mo  v  i  f 
addf 
rt  s  dc 


$bi  g,  f  rO 


Jten, f rO 
rO, f rl 
f rl, f rO 


1 


add  $2, (sp) 
rt  s  pc 


ne 
en 
i  q 
uge 


=  40200 

=  4  1040 

=  56200 

=  77777 
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.gl obi  chr 
.text 

chr: 

movf  * ( ra) +  , f rO 
mov  f  i  f  rO , r2 
bit    $0177, r2 


movb 
mov 
mov 
rt  s 

chr«-:  0 


r2 ,  ch  r<- 
$chr«-,-(r4) 
$l,-(rU) 
pc 


chr.s 

//  qet  number  aesi  red 

/  guarantee  a  valid  character 

/  leave  address  and  length  1  on  stack 
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CO 


.gl ob 1  col 
•globl  nodigit 
.text 


col  : 

mov  f 
movf  i 
mov 
rts 


*(pa) ♦, f pO 
frOrrl 

r 1 / nodi  q  i  t 
pc 
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cosh . s 


•gl obi 

.q 1 oo 1 
cosh  : 
mov  f 
J  sr 
mov  f 
mov  f 
negf 
jsr 
addf 
mu  1  f 
rts 
coshsave  : 
COSharq 1 : 
onehal  f «- : 


cosh 
exp 

//  cosh  f  unc  t 
frO, coshsave 
pc  t exp 
f  rO  f cosharq 1 
coshsave ,  f  rO 
f  rO 

pc»exo 

cosharq 1 , f  rO 
onena  1  f<-»  f  rO 

PC 

.=.+8. 
.=.+8. 
0  a  o  0  0  o  ;  o ;  0  ; 


5*  (e**u  +  e*  *-u) 
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dan  rdr.s 


da 


globl 

gl  od  1 
text 
nrdr  : 
mo  v 
add 
cmp 
bl  t 
mo  v 
mov 
mo  v 
svs 
or 


3: 


1  : 


dan  rdr 
DATCNT,DATAEND,DATA 


DATCNT, r2 

$8.,p2 

r2,$DATAEND 

1  f 
SDATA, r? 
$2,r0 
$3f ,U1 
write;  a:   0;   56. 

If 


<\n***RUN  ERROR***  no  num  data  num  restore  issued\n\0> 
•  even 

movf  *  r2 ,  f  r0 

movf  f  rO, * ( r4)  + 

mov  r2,DATCNT 

rt  s  pc 
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da t  rdr . s 


.g 1  obi   datror 

.globl   5TRNEXT,STRDATA,STREND,strmv 
.text 
dat  rdr : 

mov   (  r  a )  ,  r3 
add   STRNEXT,p3 
cihd   $STREND*2,p3 

If 

$2,  rO 

$3f ,U1 

write;  a:  o;  5a. 

$STRDATA,STRNEXT 

If 


bqe 
mov 
mov 
sys 

mov 

or 
3: 

<\n***RUN  ERROR***  no  str  data  str  restore  issued\n\0>; 
.  even 
1  : 


mov  ( p4) t  p3 

mov  STRNEXT,-( pa) 

mov  p3/-(pa) 

j  sp  pc  #  s  t  pmv 

dec  rO 

tstb  (p0)  +       // 

beq  1  f 
2: 

tstb  (r0)  +       // 

bne  2b 
1  : 

mov  pO,STRNEXT 

Pt  S  PC 


//   save  1 engt  h 

//  -nove  next  data  address  into  stack 

//  duplicate  string  length  for  strmov 


did  we  read  a  w  n  i  1 e  string?? 

NO  look  for  the  end  of  this  string 
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ldfps  =  170100ttst 
stfps  =  170200Ttst 
/  f  t oa  --  basic  g  f p 


f  loter.s 


conversi on 


•gl obi 


nod  i  gi  t 


/  ecvt  converts  frO  into  decimal 

/  the  string  of  converted  diqits  is  pointed  to  by  rO. 

/  the  number  of  diqits  are    specified  oy  nodigit 

/  r2  contains  the  decimal  point 

/  rl  contains  the  sign 


f  cvt  : 

c  1  r  e  f 1 aq 

br   1  f 
ec  v  t : 

mov  $  1  t e  f 1 aq 
1 : 


S  t  f  DS 

ldfps 
mov  f 
mo v  f 


-(so) 

$200 

f r0,-(sp) 

f rl  ,-(sp) 


mov  r3  > - ( so ) 
mov  $buf i  r 1 
clr  r2 
C  1  r  sign 
tst  f     f rO 
c  fee 
beq  zer 
bqt  1  f 
i  nc  s  i  qn 


neqf 


f  rO 


mod  f 
t  st  f 
c  fee 
bea 


1  ss 


$one / f  rO 
f  rl 


gt  r: 

mov  f 
mov  f 


f r0,-(sp) 
f rl , f rO 


mov  $bu  f  t op / r 3 

mod  f  tenth/frO 

mov  f  f  rO  t  f p2 
movf     f  r  1  t  f  rO 

addf  $eps i 1  on ,  f  r2 

modf  S t  en / f  r2 
mov  f  i     f  r 3  t  r 0 
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/ 

1: 


add  $ ' 0, r0 

movb     rO , - ( r3 ) 

i  nc  r2 

tst  f     f rO 

c  fee 

bne  1  b 

mov  $buf  t r 1 

movb     Cp3)+» (rl )+ 

emp  r3f $bu  f too 
bio  lb 

mov  f     (sp)  +  t f rO 
br   oad 


zer : 

i  nc  r2 

br   pad 


$ten,f rO 
f  rt 


1  ss: 

dec  r2 

modf 

tst  f 

c  f  cc 

beg  1 ss 

i  nc  r  2 

jsr  pc/digitl 


pad : 

jsr  pc  t di  qi  t 

br  out 
br   pad 

digit: 

emp  r\, Sou  f  t  oo 
b  h i  s     If 
add  $2, (so) 
modf     $ t  en / f  rO 


di 


1  : 

/ 
ou 


gi  1 1  : 
movfi    f r 1 r pO 

add  S  '  0/ rO 

movb     rO , ( r 1 ) + 

rt  s  oc 

t  : 

mov  $bu  f i  rO 
add  nod  i  g  i  t / rO 
tst  e  f 1 ag 
bne  If 
add  r2,r0 


1  : 
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1: 


2: 


1 : 
out 


l: 


cmp  p 0  t $ b U f 

bio  out  out 

movb     ( rO ) ,  p 3 

add  $5, r3 

movb     p3  ,  ( rO  ) 

cmpb  (rO),V9 

ble  If 

movb  $' 0, (rO) 

cmp  rO / $bu  f 

bios  2f 

i  neb  -( rO) 

br   lb 

movD     I ' In (rO) 
inc  r2 

out  : 

mov  s  i  gn ,  r  1 

mov  nod  i  gi  t i  rO 

t  s t  ef 1 ag 

bne  1  f 

add  r2, rO 

c 1 rb     buf ( pO) 
mov  $bu  f / r 0 
mov  ( sp )  +  >  r3 
mov  f     Csp) 1 1 f  pl 
mov  f     ( so )  +  , f  rO 
1 df os    (sp) + 
Pt  s  pc 


epsi 1  on  =  0371  14 
one     =  40200 
ten     =  41040 

.dat  a 
tenth:  037314;  146314;  146  314;  146315 
nodi  g i  t :  1  0  . 

.bss 
buf :     .  =  .  *40. 
buf  too: 
sign:    .  = .  t2 
ef 1 ag:   .  =  .  +  2 

.  text 
/  C  library--  floating  output 

•gl obi     floter 


f 1 oter : 
1: 

movf      * ( r4)  +  , f  rO 

j  sr  pc , f c v t 

tst  Pl 
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2: 


l: 


1 : 


2: 


1 : 


1 : 


2: 


beq  1  f 

movb     $ ' -, ( r3) ♦ 

tst  r2 
bqt  1  f 
movb     $'0,(r3)+ 

ctid  nod  i  g  i  t / r2 
jle  6f 
mov  r2 ,  r  1 
ble  If 

movb     ( rO) f / ( r3) + 

sob  r 1 , 2b 

mov  nodigit^rl 

beq  If 

movb     % ' . f ( r3) t 

neg  r2 
ble  If 

aec  r  1 

bit  If 

movb     S'O, (r3)+ 

sob  r2,2b 

tst  r\ 
ble  2f 

movb     ( rO )  +  ,  ( r3)  + 

sob  rU  Id 

rt  s  dc 


6: 


movb  $*?, ( r3)  * 
sob  r2  f  bb 
rt  s  pc 


psc i en : 

mov  rOf nodi  gi  t 

tst  r2 

bne  1  f 

mov  $b / nod  i  g  i  t 


1 


mov  f      ( r4 )  +  ,  f  rO 

j  s  r  dc  f ec  v t 

tst  r  1 

beg  1  f 

movb 


$'-, (r3)+ 


movb     ( rO ) ♦#  ( r3)  ♦ 
movb     $' •/ Cr3)+ 
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mov  nod  i  gi  t  #  r 1 
dec  p  1 
ble  If 

movb     ( rO)  +  ,  (  r3)  + 
sob  r\ ,2b 

movb     S'e* (r3)t 

dec  r2 

mov  r2  *  r\ 

bqe  If 

movb     $'-, (p3)+ 

neg  r  1 

br   2f 


1  : 
2: 


mo  vD 


$' +, (r3) t 


C  1  r  rO 

di  v  $10., rO 

add  $ ' 0, rO 

movb     rO , ( r 3 ) + 

add  $'Q,rl 

movb     r 1 r ( r3 ) + 

rt  s  pc 


18o 


i  n  t  .  s 


•  q 1  obi 

i  nt 

.text 

one  =  040200 

i  nt  : 

mov  f 

*(r4)+, f rO 

modf 

Sone , f rO 

mov  f 

frl,fr0 

tst  f 

f  rO 

cfcc 

bqe 

If 

sub 

$one  f  f rO 

1 : 


rt  s    pc 
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•g) obi 

•  text 
1  en: 
1 ength : 


1  en  .  s 


1  en  t  1 enat  h 


tst  (r4)+        /poo  off  default 
mov  (r4),r2  /coDy  address 
cl  r  rO 


1 engt  h 


stb  ( r2) + 
eq  2f 

nc  rO 
r  lb 


mov  if  rO , f  rO 
rt  s  pc 


//  length  now  in  frO  for  return 
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1  i  ndmp  .  s 


.  g 1 ob 1  1  i  ndmp 
•qlobl  stdout 
.text 


1 i  ndmp: 
mov 


$l,rO 

movb  S'Olch 
sys  write?  lch;  1 
mov   S80 . , st dout +2 
rts  pc 


lch 


.  =  .+2 
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mod  .  S 


.g I  obi  mod 
one  =  040200 

.text 
mod : 

mo  v  f 

di  vf 

mod  f 

mu  1  f 

tst 

mo  v  f 

subf 

rts 


*  2  (  p  a ) ,  f  r  0 
*Cr4), f rO 

Sone / f  r  0 
*(p4),f rl 

*  (r4)  t 
*(p«) , f p0 
f rl , f rO  . 
PC 


//  ood  stack 
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nbrrdr.s 


.  g 1 ob 1  nbrrdr 
.qlobl  numbst, ERROR 
.text 
nbrrdr: 

mov 

mov 

cl  P 


1  : 


2: 


Snumbs  t  t r 3 
523.  ,  rl 
r2 


mov  SO , rO 

sy s  read;  rch ; 

bes   badread 

cmpb  S ' 9, rch 

bit  bf 

cmpb  $ ' 0 / re  h 

bqt  ^f 

movb  rch, (r3)+ 

sob  p  1  ,  1  b 

br  6f 

cmpb  $ '  »  rch 

bea  3f 

cmpb  $'\t»rch 

beq  3f 

cmpb  % '  ./rch 

beq  5f 

cmpb  5  '  -  ,  re  h 

beq  4f 

cmpD  $'+»rch 

beq  3f 

br  6f 


/length  of  number  limited  to  23  digits 


/ s t anda  rd  i  nput 


emp  r3/inumbst 

beq  1  b 

emp  r3 i Snumbs  t ♦  1 

one  b  f 

tst  r2 

bne  o f 

sob  pi  t  lb 

emp  r  3 / Snumbs  t 
bne  6  f 

movb  re  h ,  ( r3  )  + 
br  lb 

tst  r2 
bne  6f 

movb  rchf  ( r 3  )  + 
i  nc  r2 
sob  r  1  r  1  b 

tst  r2 

bne  2f 

movb  $ ' . , ( p3) + 
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2: 

movb 
mov 
rts 
badread 

J  sr 

<ERR0R 

•  even 

.data 

rch  : 

numbs t : 


$'\0,  (p3) 
Jnumbst ,-(r4) 

DC 

« 

r5, ERROR 

bad  system  call 


.  =  .+2 
.=.♦40. 


nbrrdr\n\0> 
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numptr.s 


.g 1  obi  numpt r 

.qlobl  numbrrnodiqi t/Stdout , floter, 1 i  ndmp, ERROR 

•  text 

numpt  r : 

mov  Jnumb  r»r3 
j  s  r  pc  i  f  1  ot  e  r 

sub  nod i gi t , s t dou t +  2 

tst  stdout+2 

bgt  1  f 

jsr  p  c  » 1  indmp 

mov  480  .  , stdout +  2 


1: 


2: 


mov  JnuTib  r  t  r  3 
mov  n  o  d  i  g  i  t  r  r  2 

mov   $  1 r r 0 
movb  (  r  3 )  +  , nc h 
sys  write?  nch; 
sob  ri  f 2b 
mov   $  1 r  r0 
movb  $  '  / nc  h 
sys  write  i     nch; 
rt  s  pc 


1 


nch  : 


.  =  .+2 
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rad .  s 


.g 1 ob 1  rad, deg 
•  text 
rad: 

mul  f   pi  +■»  f  rO 

rts    pc 
oi«-:      036616;  0175065;  011224;  0164706 

deg : 

mu  1  f   rd*-  /  f  rO 

rts    pc 
rd<-:        041545;  027340;  0151436;  07703 
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rnd  .  S 


.gl obi  rnd 

.glob)  rand 
maxplusone  =  OauOOO 
rnd: 

j  sr     pc# rand 

mov  i  f   rO i  f rO 

divf    SmaxD 1 usone , f rO 

rt  s     pc 
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s  i  nh  .  s 


•  gl obi  s  i  nh 

.gl ob 1  exo 
.text 
onehal f 
s  i  nh  : 

mo v  f 

negf 

jsr 

mo  v  f 

mov  f 

j  sr 

subf 

mu  1  f 

rts 
s  i  nhsave  : 
s  i  nharg  1  : 


=  oaoooo 

/ /  s 1 nh  f  unc  t 
f  rO  #  s  i  nhsa ve 
f  rO 

pc , exo 
frOrsinharql 
sinhsave; f  rO 
pc , exp 

sinhargl/ frO 
oneha 1 f / f rO 

PC 

:    .  = .  +8. 
.=.+8. 


.5* (e**u-e*  *-u) 
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s  t  rcmp  .  s 


•  ql  Ot)  1  St  rcmp 
.text 
st  rcmp : 


mov 
mov 
mov 
mov 
Cl  r 
el  r 


(r4)+, p2 
(r4)+, rl 

(ra)+,r3 
( r4) +  , rO 
r2 
r3 


movb  ( rO ) + , r2 
beq   2f 
movb  ( r  1  )  +  ,  r 3 
beq  5f 
cmpb  r2  >  r  3 
bit  4f 
bqt  5f 
br     lb 

movb  (  r  1  )  +  , r3 
bne  Uf 

mov  S0,-(r4) 
rts  pc 


mov 
neq 
mov 
rts 

mov 
rts 


$l,r3 

r3       / 

r3,-(r4) 

oc 

PC 


-1 


/check  to  make  sure  not  eaual 
/  set  flaa  to  equa 1 


/  set  less  than 
is  less  than 
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St  rdrrp  .  s 


.g 1 ob 1 
•gl obi 

.text 
st  rdmp : 
mov 
mov 
sub 
tst 
bgt 
jsr 
mov 


s t  rdmo 

stdout ,  c  h  ,  numbr , 1  indmo,ERROR 


(ra)+, r3 

r3,  rl 

r  3  ,  stdout  +  2 

stdout  +  2 

If         /  need  a  newline 

pc  t  I  i ndmp 

$80  .  , stdout  +2 


mov  ( r4 ) + , r2 

mov    $  1 / r  0 
movb  (  r2  )  + , ch 
beq  5f 

sys  write?  ch 
sob  r  1  ,  2b 

rt  s  pc 


mov   5 1 i  rO 
movb  $  '  t ch 
sys  write  ; 
sob  r  1  ,  5b 
rt  s  pc 


ch;  l 


.data 
numbr :    .  =  . +20 . 
ch  :       .  =  . +2 

stdout:  l;  80  .;  0 
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.gl obi  strrdr 
.globl  ERROR 
•  text 
strrdr: 


strrdr. s 


1 


mov  (r4)+, rl 
mov  (r'JJ  +  r  p2 


/length  to  be  read 
/address 

/de  fault  i  nout 


mov  SO / rO 

sys  read  ;  srch;  1 

bes   badread 

cmpb  $  '  \n r s  re  h 

beg  d* 

c  m  p  b  $'"»srch 

beq  2f 

movb  srch, ( r2 ) + 

sob   r  W  lb 
2:    movb  $'\0f(r2) 

rt  s  pc 
badread : 

jsr    r5, ERROR 

<ERR0R   bad  system  call   strrdr\n\0>;   .even 


/put  character  in  place 

/strina  full  yet? 

/all  strings  end  in  null 


srch: 


.  =  .+2 
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t  ab .  s 


.g 1 ob 1  t  ab 
•gl obi  st dout 
•  text 
tab: 

mov  f 
mov  f  i 
1  : 


*(r4)+, f rO 
f rO, r3 


//  tab  value 


cmo  $80., r 3 

bae  2f 

sub  $80.,r3 

br  lb 
2: 

mov  st  dout  +  2  f  r2 

mov  $80.,rl 

sub  r3 ,  r  1 

cmp  r  1  ,  r2 

bit  3f        //  if  ge  or  gt   already  there  or  oast 

mov  rlfStdout+2       //  new  end 

sub  rl,r2  //  how  many  blanks? 

mov  s t  dout  >  rO 


//  char  left 
//  char  needed  at  ena 


movb 
sys 
sob 
3: 
rts 


$  '  ,  t  C  h 
write?  t  c  h ;  1 
r2,4b 

DC 


.data 
tch : 


.  =  .+2 
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t  an  .  s 


•ql ob 1 
.gl ob 1 
.  text 
tan: 
.ql ob 1 
mov  f 
j  sr 
mov  f 
mov  f 
jsr 
mov  f 
tst  f 
c  f  cc 
beq 
di  vf 
rts 
1  : 
mov  f 
tst  f 
c  fee 
bqe 
neg  f 
2: 
mov  f 
rts 
t  ansave 
t  ancos  : 
huaeest 


t  an 

cos i  s  i  n 

//   tan  function   sin/cos 
cos»sin 

f  rO  ,  t  ansa ve 

PC  r cos 

f  rO / t ancos 

t  ansa ve  * f  rO 

pepsin 
t  ancos  i  f  r 1 

f  r  1 


//  test  for  div  by  0  ans  infinity 


If 


//  plus  or  minus  infinity?? 


f rl»f rO 

PC 

huqees  t ,  f r 1 
f  rO 

2f 

f  rl 


f rl,f rO 

PC 

:    .  =  .  +  8. 
.=.+8. 
:  077777;  177777; 177777;  177777 


9-? 
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V3  1  .  s 


•g 1 ob 1  va  1 
.text 
val  : 

mov  Jnumvs t t r 3 

tst  (r4)+ 

mov  ( r4 ) + ,  rO 

mov  $22. *  pi 

c  1  r  r2 

movb   $ ' 0» ( r3) + 
1  : 

movb  (  rO  )  +  ,  vc  h 

cmpb  $'9,vch 

bl  t  6f 

CTiob  $  '  0  ,  v  c  h 

bgt  2f 

movb  vc  h  , ( r3 )  + 

sob  r  1  ,  lb 

br  6f 
2: 

cmpo  $ '  f  vch 

beq  3f 

cmpb  $ '  , vc h 

beq  3f 

cmpb  $ '  . ,  vc  h 

beq  5f 

Cmpb  i'"fVCh 

beq  at 

cmpb  $  '  +/vch 

beq  3f 

br  6f 
3: 

cmp  r3 / Snumvs  t 

beq  lb 

cmp  p 3 / Jnumvs t + I 

bne  6  f 

tst  r2 

bne  6  f 

sob  r  1  t  lb 
a: 

cmp  r3  t Snumvs  t 

bne  6f 

movb  vch / ( r3 ) + 

br  lb 
5: 

tst  r2 

bne  6 f 

movb  vcH, ( r 3 ) + 

inc  r2 

sob  r 1 , 1 b 
6: 

tst  r2 

bne  2f 

movb  $'  .  , (r3)  + 


/  dop  stack 

/  get  starting  address 
/length  of  number  linited  to  22    digits 

/  insure  at  least  a  zero 
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2: 


movb  $ ' 0, ( p3) 

mov   Snum v s t r ■ ( r^ ) 

rts   dc 


.data 
vch  : 
numvs  t I 


=  .+2 
.=.+24 
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PROGRAM  LISTING  -  UNIX  EXECUTIVE  PROGRAM 


1  aq ; 

1  aq; 

1  aq? 

1  ag; 

1  aq; 

1  aq; 

1  aq; 
char  *  a  v  £  5  0 ] ; 
char  *bp  rog ; 
char  *  1 H  s t [ 5 0 3 ; 

char  *  q  1  "/usr/qraph/conie.o"! 
Vusr/lib/libt.a"; 
" /usr/qraoh/rmtKsub.o" ; 


i  nt 

cf  1 

i  nt 

1  f  1 

int 

of  1 

int 

rf  1 

i  nt 

sf  1 

int 

tf  1 

i  nt 

vf  1 

char  *g<± 
char  *q3 
char  *q4 
char  *q5 


Vusr/qraoh/rnoresub.o 


"/usr/qraDh/vq.a" ; 

char  *passO     H/usr/basic/baxcomoS"; 

Char  *passl     "/bin/as"; 

char  *pass2    "/bin/Id"; 

char  *oassi    "/bin/rm"; 

char  t s  [  1 0 0 0 1  ; 

char  *tsp    ts; 

main     ( arqc  i     arqv ) 
char    *arqv  [    1  ;     { 

char    *  t ; 

int  if  it    bflaa*  nl f     nxo; 

i  =bf 1 aq  =  n 1 =nxo  =  0; 
while  ( +  +  i  <  arqc)  { 

if  (arqvtil   (0]  ==  '-') 

switch  (argv  [il   (11)  { 
def aul t : 

qoto  oassa; 
case  'S1:        //produce  as-1 anguage  file 
sf 1 aqt+; 


bf 1 aq++; 

break; 
case  '  o  '  : 

of  1 aq  +  +  ; 

break; 
case  'C  •  : 

1 f 1 aq++; 

break; 
.  \c': 

c  f  1  a  q  +  f  ; 
1 f 1 aa+t; 


//produce  object  file 
//aooena  C  library  for  loader 
//aooend  conoqraphics  library 


?0a 


> 

else  { 
passa : 
t 

i  f 


} 
i  f 


break  ? 

•t  '  : 
t  f 1 ag  +  +  ; 
1  f 1 aq++; 
b  reak ; 

•p*  : 
p  f  1  a  g  ♦  +  ; 
1  f  1  aq-n-; 
break; 

'v': 
vf 1 ag++; 
1 f 1 ag++; 
break ; 


a  pgv  [  i 1  ; 
(getsuf (t )=='h' )  { 
bf 1 agtt ; 
b  p  p  o  g  =  t  /" 
t  =  setsuf(tf'o'); 


//aopend  tektronics  library 


//apDend  ramtek  library 


//append  v  q  library 


//is  file.b  an  argument? 


//if  so»  create  file.o 


(noduo(llist,t))  {    //does  file.?  exist  as  a 
1  1  i  s t  [n  1  ■*•  +  ]  =  t»     //  previous  argument? 
if  (getsuf (t)  ==  'o')    //is  argument  file.o? 
nxo  +  +  P 


//no  file.b  source  program 
//  available  for  compilation 


> 

if  (ibflag) 

goto  nocom; 
avlO]  =  "baxcomo"; 
av  [  1 ]  =  boroqJ 
aviai  =  0; 

if  (ca 1  1 sys (passO r av  )  1=  0)  { 
print f ("Procedure  terminated  at  compilation  state. \ n "  )  ; 

ex  i  t  (  )  ; 
} 

if  C I  (bf lag! iof lag) 3  exi  t (  ) ; 
t  =  set suf ( bprog> ' s  '  ) ? 
avlO]  =  "as"; 

avin  =  ■-"; 

a  v  ( 2  ]  =  t  ; 

avC3J  =  0; 

ca 1  1 sys (oass 1 , av  )  ; 

if  (oflag)  { 

t  =  setsuf(bppogr'o'); 

un 1  i  nk  ( t  )  ; 

if  (1  ink ("a. out", t  )  ) 

p  p  i  n  t  f  (  H  1  i  n  k  fail  %  S \ n " , t )  ; 

u  n  1  i  n  k  (  "  a  .  o  u  t  "  )  ; 

ex  i  t  (  )  ; 
> 
nocom : 


205 


} 


i  =  o? 

av  [0] 
av  11] 
if  (lb 

av 
e  1  se 

av 
av  [31 
j  =  a; 
while 

av 


i  f 

i  f 


i  f 


> 

i  f 


(cf 

av 

(tf 

av 
av 
av 

Crf 

av 
av 


i  f 


(vf 

av 

(1  f 

av 

av  [  j  +  + 

av  [  j  +  + 

if  (c  3 

pr 

ex 

> 

if  (sf 
t  =  se 
av  [0] 
av  [1J 
av  [2] 
ca 1 1 s v 
ex  i  t  ( 


=  "  Id"; 
=  "-x"; 

lag) 

2]  =  t; 

2)     -    "a.out"; 
Vusr/basic/basicl  ib.a"; 

j  <  n  1  +  3  ) 

j ♦  +  ]  =  1  I  i  st  [  +  + i ]  ; 

ag) 

j  +  + 1  =  q  1  ; 

ag)  {         //three  passes  are  needed  due  to 

j++]  =  q2i  //archiving  of  library 

]++]  =  g2; 

j  +  +  ]  =  g  2  7 

ag)  { 

iff]  =  q  3  ; 

j++]  =  ga; 

ag) 

jt+]  =  g5; 

ag ) 

j  ♦  +  ]  =  H  -  1  c  "  ; 

=  "  -  1  a  "  ; 

=  0? 
Isvs(pass2»av)  !=  0)  { 

ntf (" Procedure  terminated  at  load  state.Xn") ; 
t  (  ); 

aq)  ex  i  t  (  )  > 

s  u  f  C  t  ,  '  s  '  )  ; 

=  "rm"; 

=  t  ; 
=  o; 

s(pass3»av);   //remove  file.s  since  not  soecified 

)  ; 


qet  suf ( as) 
char  as  (]  ; 
{ 

regi  s t  e  r  i  n t  c  ? 

reg  ister  char  *s? 

reg  ister  int  t  J 

s  =  as ; 
c  =  o; 

whileCt  =  *s  +  +  ) 
if  Ct=='/') 

c  =  o; 
e  1  se 
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C  +  +  ; 
s  =-  3; 
if  (c<=14  &&  c>2    &&  *s+t=='.') 

return(*s); 
return (0) ; 


} 


set  suf ( as ,    c^ ) 
char  a  s  t  J  ; 
{ 

register  char  *s»  *si; 

s  =  s 1  =  copy ( as ) ; 
wh  i le(*s) 

i  f  (*s  +  +  ==  ■ / ' ) 
si  =  s ; 
s  [  -  1 J  =  c  h  ; 
re t  urn ( s  1  )  ; 
} 

ca 1  1  sys ( f  t     v ) 
char  f[J,  *vU;  { 
int  t  t     status; 

if  (  (t  =  fork() )=  =  0)  { 
exec v  ( f »    v  )  ; 

orint f ("Can1  t  find  %s\n",  f); 
ex  i  t  (  1  )  ; 
>  else 

if  (t  ==  -1)  < 

print f(" Try  againW); 
return(l) ; 
} 
whi le(tl=wait(&status)); 
if  (  (t  =  (status&0377) )  1=  0  &&  ti=14)  < 
if  (ti=2)        /*  interrupt  */ 

printfCFatal  error  in  %  s  \  n  "  ,  f); 
e  x  i  t  (  )  ; 
> 

returnC (status>>8)  I    0377); 
} 

copy (as ) 
char  as  tl  ; 
{ 

register  char  *otsp>  *s; 

otso  =  t  s  o ; 
s  =  as; 

while(*tso++  =  *s++); 
ret  urn (ot  sp) ; 


noduD ( 1 ,     os ) 
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char  *  *  1  ,  *os ; 
{ 

register  char  *tr  *s; 

reg  ister  int  c; 

s  =  os; 

if  (getsuf(s)  I-    'o') 

ret  urn (  1  ) ; 
whi 1 e(t  =  *1 ++)  i 

whi 1 e(c  =  *s++) 

if  (c  !=  *t++) 
b  reak  ; 
if  (*t=='\0  •  &&  c  =  ='\0'  ) 

ret  urn ( 0  )  ? 
s  =  os; 
> 
return(l)? 
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